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FOREWORD 


This  As-built  Product  Specification,  divided  into  four  volumes,  covers 
work  performed  under  Air  Force  Contract  F33615-85-C-5122 ,  Geometric  Modeling 
Applications  Interface  Program  (GMAP),  covering  the  period  1  August  1985  to 
31  March  1989.  The  document  addresses  the  GMAP/PDDI  System  Components 
developed  or  enhanced  under  this  contract  which  is  sponsored  by  the  Computer 
Integrated  Manufacturing  Branch,  Materials  Laboratory,  Air  Force  Systems 
Command,  Wright  Air  Force  Base,  Ohio  45433-6533.  The  GMAP  Project  Manager 
for  the  Air  Force  is  Mr.  Charles  Gilman. 

The  primary  contractor  is  Pratt  &  Whitney,  an  operating  unit  of  United 
Technologies  Corporation.  Mr.  Richard  Lopatka  is  managing  the  GMAP  project 
at  Pratt  &  Whitney.  Ms.  Linda  Phillips  is  the  Program  Integrator.  Mr.  John 
Hamill  is  the  Deputy  Program  Manager. 

McDonnell  Aircraft  Company  was  the  subcontractor  responsible  for  the  PDDI 
System  Component  work.  Mr.  Jerry  Weiss  is  the  GMAP  Program  Manager  at 
McDonnell  Aircraft  and  Mr.  Herb  Ryan  is  the  Deputy  Program  Manager. 

Volume  III  of  this  Product  Specification  provides  the  Model  Access 
Software  with  Name/Value  Interface  routine  listings. 


NOTE:  The  number  and  date  in  the  upper  right  comer  of  each  page  in  this 
document  indicate  that  it  has  been  prepared  in  accordance  to  the 
ICAM  CM  Life  Cycle  Documentation  requirements  for  a  Configuration 
Item  (Cl). 
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3.10.2  Model  Access  Software 


3.10.2.1  Index 


Routine 

Name  Function 


ADCRBM 

ADRLSM 

ADSCH 

ADSCHR 

ADTLSM 

ADTNM 

BIGCREMM 

CHKDEL 

CHKTDEL 

CMPCRB 

CNNODM 

CNNODMN 

CNVOSP 

CNVRR 

CYPAUDB 

CPYCST 

CPYLSM 

CPYNM 

CRCLST 

CRCLSTN 

CRCNM 

CRDLST 

CREMM 

CRURUL 

DELCNST 

DELCRBE 

DELEMM 

DELPLST 


-  Adds  a  new  CRB  entry. 

-  Adds  an  entity  after  a  relative  position  in  a  system  list. 

-  Connects  an  internal  item  to  the  correct  portion  of  the  NDS 
superstructure . 

-  Connects  an  internal  item  to  the  schema  root. 

-  Adds  an  entity  to  a  system  list. 

-  Adds  an  entity  to  the  end  of  an  application  list. 

-  Create  a  user-constituent  relation  between  entities  with  a 
constituent  list  of  a  given  size. 

-  Checks  deletability  of  an  entity  relative  to  its  users. 

-  Checks  deletability  of  an  entity  relative  to  its  users. 

-  Compresses  the  CRB. 

-  Connects  two  entities. 

-  Connect  two  entities  and  create  a  constituent  list  of  a 
given  size. 

-  Converts  out  of  space  system  error  code  to  user 
recognizeable  error  code. 

-  Gets  the  external  return  code  corresponding  to  the  internal 
format . 

-  Stores  the  value  of  an  application  entity  block  in  an 
uninitialized  system  UDB. 

-  Adds  the  entities  in  a  constituent  list  into  a  list. 

-  Copies  the  non-vacant  elements  of  LIST  FROM  to  LIST  TO. 

-  Creates  a  new  list  which  contains  a  copy  of  the  entities 
referenced  by  KEYL. 

-  Creates  relations  between  a  user  entity  and  a  list  of 
constituents . 

-  Create  relations  betwen  a  user  entity  and  a  list  of 
constituents . 

-  Creates  relations  between  a  user  entity  and  a  list  of 
constituents. 

-  Creates  a  sorted  inclusive  list  of  an  entity  or  a  list  of 
entities  and  their  direct  and  indirect  constituents. 

-  Creates  a  user-constituent  relation  between  entities. 

-  Creates  the  user's  rules  for  deletability. 

-  Determines  deletability  of  entity's  constituents. 

-  Deletes  a  CRB  entry. 

-  Deletes  all  references  to  this  entity  from  all  application 
lists  and  disposes  of  the  entity. 

-  Removes  an  entity  from  a  specified  position  in  a  system  list. 
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DELPNLA 

DELRLSM 

DELRUL 

DELSCH 

DELTLSM 

DETCNST 

DETRUL 

DIFLSM 

DISPCRB 

DISPEMM 

DISPLSM 

DISPNM 

ELDNM 

ELMNODM 

EXCRBE 

EXPCLSM 

EXPCRB 

EXPSUDB 

EXPULSM 

EXPULSMI 

FDSCH 

FNDCRBE 

FNDSKIND 

GTCRBE 

INDLSM 

INITMGR 

INNM 

INTLSM 

LSTLNM 

LSTMXLNM 

MABRST 

MACPDT 

MAEA 

MAEAI 

MAEAV 

MAEC 

MAECI 


-  Deletes  all  non-"locked"  APPL  lists  after  a  specified 
position  in  the  LIST_OF_LISTS . 

-  Removes  an  entity  from  a  system  list. 

-  Deletes  an  entity  according  to  the  delete  rules. 

-  Disconnects  an  internal  item  from  the  correct  portion  of  the 
NDS  superstructure. 

-  Removes  the  last  non-vacant  entity  reference  in  a  list. 

-  Checks  deletability  of  entity's  constituents. 

-  Tests  delete  of  an  entity  according  to  the  delete  rules. 

-  Creates  a  system's  list  consisting  of  all  entities  in  LIST! 
that  are  not  in  LIST2. 

-  Disposes  of  CRB. 

-  Releases  all  space  allocated  to  an  entity. 

-  Deletes  spa  e  allocated  to  a  system  list. 

-  Removes  all  entities  from  the  list  and  free  the  allocated 
space . 

-  Creates  a  list  with  all  duplicate  entities  eliminated. 

-  Returns  an  ENTBLOCK  cooresponding  to  a  key. 

-  Exchanges  two  entries  in  the  CRB. 

-  Expands  list  with  all  of  its  constituents  and  places  this 
expanded  list  in  LISTOUT. 

-  Expands  the  CRB. 

-  Expands  a  system  UDL. 

-  Places  the  expanded  list  with  all  of  its  users  in  LISTOUT. 

-  Place  the  expanded  list  with  all  of  its  users  in  LISTOUT. 

-  Finds  a  Schema_Instance_Collector  or  Schema_Class  entity  on 
the  specified  Schema_Root ’ s  constituent  list. 

-  Finds  a  specific  entry  in  the  CRB. 

-  Builds  an  array  of  kind  value  collected  by  a  class  or 
instance  collector  in  the  schema. 

-  Gets  an  entry  in  the  CRB. 

-  Locates  an  entity  in  a  system  list. 

-  InitialiEe  the  memory  manager. 

-  Indicates  whether  a  list  references  an  entity. 

-  Creates  a  list  which  is  the  intersection  of  two  lists. 

-  Returns  the  number  of  non-vacant  entities  in  a  system  list. 

-  Returns  the  number  of  entries  allocated  to  a  system  list. 

-  Reset  the  process  and  application  flags  for  all  entities. 

-  Update  a  specified  application  flag  for  the  constituents  of 
an  entity  or  list  of  entities. 

-  Activates  an  entity. 

-  Activates  an  entity  or  a  list  of  entities  and  their 
inclusive  constituents. 

-  Finds  the  present  value  of  the  activation  setting  for  an 
entity. 

-  Creates  an  application  list  of  constituent  entities. 

-  Creates  an  application  list  of  inclusive  constituent 
entities . 
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MAECIK 
MAE CMP 

MAECQY 

MAECR 

MAECRN 

MAECTK 

MAECXQ 

MAED 

MAEDI 

MAEDT 

MAEDTI 

MAEDTS 

MAEGKN 

MAEGTK 

MAEKND 

MAERST 

MAESCI 

MAESVL 
MAE SWA 
MAESWT 

MAEU 

MAEUD 

MAEUI 

MAEUIK 

MAEU SR 

MAEUXQ 

MAEXEQ 

MAINIT 

MAKCNT 

MAKILL 

MAKXEQ 

MAL 

MALAND 

MALATC 

MALCPY 
MALD 
MALDA 
MALD  I 


-  Creates  a  list  of  inclusive  constituents  by  kind. 

-  Determines  which  of  it's  constituents  an  entity  compresses 
with. 

-  Determines  if  an  entity's  user  should  compress  with  it. 

-  Creates  an  entity. 

-  Create  an  entity  with  a  constituent  list  of  a  given  size. 

-  Returns  the  number  of  "KIND"  values  in  the  WF  model. 

-  Execute  a  procedure  on  a  list,  creating  an  output  list. 

-  Deletes  an  entity  or  list  of  entities. 

-  Deletes  inclusively  an  entity  or  list  of  entities. 

-  Tests  delete  an  entity  or  list  of  entities. 

-  Tests  for  inclusive  deletion  of  an  entity  or  list  of 
entities  and  their  direct  and  indirect  constituents. 

-  Tests  delete  an  entity  or  list  of  entities,  and  return  three 
lists . 

-  Retrieves  the  KIND  value  of  an  entity. 

-  Retrieves  the  entity  block  which  corresponds  to  KEYE. 

-  Returns  a  "KIND"  value  from  the  list  of  KINDS  in  the  WF 
model . 

-  Reset  the  specified  flag  in  all  entities  in  the  WF  model. 

-  Set  or  reset  the  process  flag  for  the  inclusive  constituents 
of  an  entity  or  list  of  entities. 

-  Finds  the  current  binary  switch  setting  of  an  entity. 

-  Sets  the  process  bit  "off"  in  all  entities  in  the  model. 

-  Sets  an  entity  switch  or  the  switches  for  eich  entity  in  a 
list  as  requested  by  the  user. 

-  Creates  a  list  of  user  entity  references. 

-  Updates  the  entity  block  corresponding  to  a  key. 

-  Creates  an  application  list  of  inclusive  user  entities. 

-  Creates  a  list  of  inclusive  users  by  kind. 

-  Determines  if  an  entity  has  any  users. 

-  Executes  a  procedure  on  the  users  of  an  entity. 

-  Executes  a  procedure  on  an  entity,  or  a  list  of  entities. 

-  Initializes  the  MAS  network. 

-  Determines  the  number  of  entities  of  a  specified  kind  in  the 
WF  model. 

-  Deletes  the  WF  model. 

-  Executes  a  procedure  on  all  entities  of  a  specified  kind. 

-  Creates  an  empty  list. 

-  Creates  an  application  list  of  entities  common  to  two  input 
? ists . 

-  Appends  an  entity  of  list  (LIST2)  to  an  entity  or  list 
(KEY1) . 

-  Makes  a  copy  of  a  list. 

-  Deletes  an  application  list. 

-  Deletes  all  application  lists  that  are  not  "locked". 

-  Deletes  an  application  list  and  all  lists  after  it  that  are 
not  locked. 
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MALF.ND 

MALGTK 
MALI NS 
MALK 
MALKC 
MALKL 

MALKU 

MALN 

MALNO 

MALNOT 

MALOCK 

MALOR 

MALRD 

MALRDE 

MALREP 

MALRMV 

MALROR 

MALRORI 

MALRPL 

MALRRI 

MALRST 

MALRVS 

MALSRT 

MALSTF 

MALSTR 

MALXEQ 

MAQURY 

MARDLT 

MARSGT 

MASALOC 

MASDSP 

MASMSZ 

MASNEW 

MASOVR 

MAUPDT 

MIDBD 

MIDBRV 

MOVRLSM 


-  Finds  the  position  of  an  entity  (KEY2)  in  an  applicaiton 
list  (KEY1). 

-  Gets  the  Nth  key  from  the  list. 

-  Inserts  an  entity  or  list  into  a  list. 

-  Creates  a  list  of  all  entities  of  a  specified  kind. 

-  Create  a  list  of  constituesnts  of  a  specified  kind. 

-  Creates  a  list  of  entity  kinds  which  are  found  within 
another  list. 

-  Create  a  list  of  users  of  a  specified  kind. 

-  Creates  an  empty  list  of  a  specified  size. 

-  Counts  the  entities  on  the  list. 

-  Creates  an  application  list  of  entities  in  KEY1  but  not  in 
KEY2 . 

-  Sets  an  application  list  for  delete  or  non-delete  status. 

-  Creates  an  application  list  from  a  BOOLEAN  "OR"  on  two  input 
lists. 

-  Reads  the  next  entry  in  a  directed  list. 

-  Removes  duplicate  entries  in  a  list. 

-  Replaces  a  list. 

-  Removes  an  entity  from  a  list. 

-  Reorders  an  application  list  in  user-constituent  order. 

-  Put  the  application  list  in  inclusive  user  to  constituent 
order. 

-  Replaces  an  entity  in  a  list. 

-  Put  the  application  list  in  inclusive  user  to  constituent 
order. 

-  Reset  an  application  list  for  reuse. 

-  Reverses  the  order  of  an  application  list. 

-  Sorts  an  application  list. 

-  Initializes  for  reading  a  directed  list  in  forward  order. 

-  Initializes  for  reading  a  directed  list  in  reverse  order. 

-  Executes  a  procedure  on  an  entity  or  a  list  of  entities. 

-  Determines  the  value  of  the  specified  flag  for  an  entity. 

-  Delete  the  run-time  subschema  entry  for  the  specified  entity 
kind. 

-  Locate  the  run-time  subschema  entry  for  the  specified  entity 
kind. 

-  MAS  memory  management  runtime. 

-  Disposes  of  a  MAS  dynamically  allocated  memory  area. 

-  Returns  the  actual  model  space  used  and  the  amount  of  the 
free  space  in  the  allocated  memory  blocks  of  the  model. 

-  Allocates  a  new  dynamic  memory  area  for  MAS  elements. 

-  MAS  Memory  management  runtime. 

-  Update  the  specified  flag  for  an  entity. 

-  Deletes  an  entity  without  checking  delete  rules. 

-  Removes  an  entity  from  a  list  without  checking  delete  rules. 

-  Moves  entities  between  system  lists. 
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MRGTLSM 

iiRGTNM 

MRKNM 

MRSCR 

MSINIT 

MSTART 

MSTOP 

NDSCMM 

NDSFCT 

NDSGBM 

NDSRML 

NEWCRB 

NEWEMM 

NEWIIM 

NEWLSM 

NEWNDM 

NEWNM 

NEWNMM 

NEWNODE 

NEWNSI 

NEWNSR 
NEWSADB 
NEWS CHI 

NEWSCHR 

NODECNM 

NODECNN 

NODEUNM 

OCOUNT 

ORDRLST 

ORDRLSTI 

OSTART 

PASASM 

RDLSM 


-  Concatenates  the  entities  in  LIST2  to  LIST1. 

-  Concatenates  the  entities  in  LIST2  to  LIST1. 

-  Marks  the  stack  of  lists  so  that  the  next  release  list  will 
only  destroy  lists  created  after  this  mark  operation. 

-  Store  a  run-time  subschema  entry  for  the  specified  entity 
kind. 

-  Initialize  the  Working  Form  with  a  specified  minimum  size. 

-  Generates  start  statistics. 

-  Generates  stop  statistics. 

-  Defines  dummy  program. 

-  Computes  the  amount  of  used  model  space  and  the  amount  of 
free  space  in  the  allocated  memory  blocks. 

-  Dummy  procedure  for  compile  time  initialization  of  NDS 
global  area. 

-  Releases  all  memory  blocks  allocated  to  the  WF. 

-  Creates  a  CRB. 

-  Creates  a  new  NDS  object. 

-  Creates  a  new  entity  and  copies  into  it  the  application 
ENTDATA . 

-  Initializes  LISTREF  and  allocates  enough  space  to  hold  size 
entities. 

-  Creates  a  new  empty  model  in  memory. 

-  Creates  an  empty  application  list. 

-  Create  an  empty  application  list  without  adding  it  to  the 
list  of  lists. 

-  Creates  a  new  entity  in  the  NDS  and  copies  into  it  the 
application  ENTDATA. 

-  Creates  an  empty  schema  instance  collector  attached  to  the 
schema  root. 

-  Creates  a  new  null  schema  root  and  attaches  it  to  the  NDS. 

-  Creates  a  new  application  data  block. 

-  Creates  an  empty  schema  instance  collector  entity  attached 
to  the  schema  root. 

-  Creates  an  empty  root  collector  entity  attached  to  the  NDS. 

-  Creates  a  list  which  contains  a  copy  of  the  entity's 
constituent  list. 

-  Create  a  copy  of  the  entity’s  constituent  list  without 
adding  it  to  the  list  of  lists. 

-  Creates  a  list  which  contains  a  copy  of  the  entity's  user 
list . 

-  MAS  memory  management  runtime. 

-  Reorders  an  application  list. 

-  Put  the  application  list  in  inclusive  user  to  constituent 
order. 

-  MAS  memory  management  runtime. 

-  Links  to  a  user  defined  procedure. 

-  Reads  a  system  list  as  a  first-in  first-out  order. 
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RDRLSM 

RDTLSM 

REVAADB 

REVNODM 

REVRLSM 

REVSADB 

RLSNM 

RSTLSM 

RSTSFLG 

RVRLSM 

SETRULS 

SORTDLST 


SORTLSM 

SRTBYCNT 

UPDCRBE 

VERAPN 

VERCN 

VERCR 

VERDEL 

VERGT 

VERUD 


XIEMM 


-  Reads  the  last  entity  key  from  LISTREF. 

-  Reads  the  last  entity  key  from  LISTREF. 

-  Assigns  the  value  of  a  system  UDB  to  an  application  ENTBLOCK. 

-  Revises  an  entity's  user  data  block. 

-  Changes  an  entity  in  a  system  list. 

-  Replaces  the  value  of  a  system  ENTBLOCK  with  the  value  of 
ENTDEF. 

-  Releases  all  the  lists  on  the  current  list  of  lists. 

-  Resets  position  to  indicate  the  beginning  of  a  list. 

-  Resets  the  requested  position  in  the  internal  MAS  process 
flag  (MAPROB)  in  the  IIT  to  the  requested  BOOLEAN  value. 

-  Copies  an  application  list  in  the  reverse  order. 

-  Sets  delete  flags  according  to  user's  dependence  and 
strength  rules. 

-  Gives  an  application  list  of  entities  to  be  deleted,  DEL_LST 
returns  a  system  list  sorted  in  user_constituent  order  in 
SRT_LST. 

-  Sorts  a  system  list. 

-  Creates  an  application  list  of  inclusive  constituents  in 
constituent-user  order. 

-  Updates  an  entry  in  the  CRB. 

-  Verifies  legality  of  appending  an  entity  or  list  of  entities 
(KEY2 )  to  an  entity  or  list  of  entities  (KEY1) . 

-  Verifies  legality  of  connecting  each  entity  on  a  list  of 
users  to  each  entity  on  a  list  of  constituents. 

-  Verifies  legality  of  creating  an  entity  with  the 
user-supplied  entity  data  block  and  list  of  constituents. 

-  Verifies  legality  of  deleting  an  entity. 

-  Verifies  legality  of  retrieving  an  entity  with  the  user- 
supplied  entity  key. 

-  Verifies  legality  of  updating  an  entity  with  the 
user-supplied  entity  key  using  the  user-supplied  entity  data 
block  and  list  of  constituents. 

-  Deletes  an  entity. 
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3.10.2.2  Listings 

(*  XINCLUDE  ADCRBM  *) 

(**) 

PROCEDURE  ADCRBM(VAR  CRB:CRBPNTR;  CONST  EKEY:ENTKEY ; 

CONST  POS.-LISTPSTN;  CONST  DIR.-LISTDIR;  VAR  RR :RET_REC)  ; EXTERNAL; 


(**) 

(* — 

-*) 

(* 

*) 

(* 

AUTHOR: 

B.  A. 

ULMER  FRMI  CREATED:  85/02/07 

CC??*) 

(* 

VERSION: 

XXXX 

REVISED:  YY/MM/DD 

CC 

*) 

(* 

*) 

(* 

FUNCTION: 

*) 

(* 

ADD  A 

NEW  CRB  ENTRY 

*) 

<* 

*) 

(* 

ENVIRONMENT: 

*) 

(* 

IBM  PASCAL  LANGUAGE 

*) 

(* 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

*) 

(* 

*) 

(* 

EXECUTION 

PROCEDURE: 

*) 

(* 

HOW  IS 

THIS 

ROUTINE/MODULE  TO  BE  EXECUTED. 

*) 

(* 

*) 

(* 

DESCRIPTION  OF 

ARGUMENTS : 

*) 

<* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

CRB 

I/O 

CONSTITUENT  READ  BLOCK  ADDRESS 

*) 

(* 

EKEY 

I 

ENTITY  CONTAINING  THE  CONSTITUENT  LIST  BEING 

*) 

(* 

READ 

*) 

(* 

POS 

I 

LIST  POSITION  SETTING 

*) 

(* 

DIR 

I 

DIRECTION  TO  READ  THE  LIST  (FORWARD  OR  REVERSE)*) 

(* 

RR 

0 

ERROR  CONDITION  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

=  1  YOU  BLEW  IT 

*) 

(* 

=  2  THE  ROUTINE  BLEW  IT 

*) 

(* 

*) 

<* 

COMMONS : 

*) 

(* 

C0M1 

*) 

(* 

VAR1 

I 

VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 

*) 

(* 

MUST  BE  PROVIDED 

*) 

(* 

VAR  2 

I 

VAR2  MUST  BE  SPECIFIED 

*) 

<* 

COM2 

*) 

(* 

VAR  3 

I 

CHARACTER  DATA  MUST  BE  SPECIFIED 

*) 

(* 

*) 

(* 

PROCESSING  DESCRIPTION: 

*) 

(* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 

*) 

(* 

FILES 

NEED 

TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

*) 

(* 

*> 

3-631 


Cl  PS560240032U 
April  1990 


(*  COMMENTS:  *) 
(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 
(*  *) 
(*  CHANGE  CONTROL:  *) 
(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 
(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 
(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 
(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 
(*  NARRATION  ON  THE  NEXT  LINE.  *) 
(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 
(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 
(*  *) 
(* - *) 


<**) 

(*  END  %INCLUDE  ADCRBM  *) 
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(*  7.INCLUDE  ADRLSM.  *) 

(**) 

PROCEDURE  ADRLSM( CONST  INCREMENT:LISTSIZE;CONST  POSITION:LISTPSTN; 
CONST  KEYE : ENTKEY ; VAR  LISTREF:LISTPNTR;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 


(*- 

(* 

-*) 

*) 

(* 

^FUNCTION: 

*) 

(* 

ADD  AN  ENTITY 

AFTER  A  RELATIVE  POSITION  IN  A  SYSTEM  LIST. 

*) 

(* 

A  POSITION  OF 

ZERO  INDICATES  THE  TOP  OF  THE  LIST.  IF  THE 

*) 

(* 

LIST  REQUIRES 

EXPANSION  TO  HOLD  THE  NEW  ENTITY,  IT  IS 

*) 

(* 

(* 

EXPANDED  BY  INCREMENT  ENTRIES. 

*) 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O  DESCRIPTION 

*) 

(* 

=  =  =  == 

n 

ii 

n 

n 

n 

ii 

n 

n 

ii 

ii 

ii 

ii 

n 

n 

*) 

(* 

INCREMENT 

I  NUMBER  OF  ENTITIES  BY  WHICH  A  LIST  IS 

*) 

(* 

EXPANDED  AT  A  TIME 

*) 

(* 

POSITION 

I  RELATIVE  POSITION  AFTER  WHICH  THE  NEW 

*) 

(* 

ENTRY  IS  ADDED 

*) 

(* 

KEYE 

ENTITY  TO  BE  ADDED. 

*) 

(* 

LISTREF 

POINTER  TO  THE  SYSTEM  LIST  TO  WHICH  KEYE 

*) 

(* 

WAS  ADDED 

*) 

(* 

RC 

0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

=  1  YOU  BLEW  IT 

*) 

<* 

(* 

=  2  THE  ROUTINE  BLEW  IT 

*) 

*) 

<* 

(* 

$COMMONS : 

*) 

*) 

<* 

^ENVIRONMENT : 

*) 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 


LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
^PROCESSING  DESCRIPTION: 

ADDS  KEYE  TO  THE  SYSTEM  LIST  LISTREF  AT  POSITION  AFTER  THE 
THE  RELATIVE  POSITION  GIVEN 


^COMMENTS: 

$ CHANGE  CONTROL: 
REVISED:  12/30/85 


B.  A.  ULMER 


FRMI 


*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

ADD  PROCESSING  FOR  LARGE  LISTS 

*) 

(* 

*) 

(* 

REVISED:  12/24/84  R.  A.  MCCLUSKEY 

FRMI 

*) 

(* 

ADDED  SYSTEM  LIST  CURRENT  LENGTH  INDICATOR  —  LSTLNM 

*) 

(* 

*) 

(* 

REVISED:  10/01/84  E.  D.  SHREVE 

FRMI 

*) 

(* 

CORRECT  THE  MOVE  OF  ENTRIES  FROM  OLD  TO  NEW  LIST  WHEN 

OLD  LIST 

*) 

(* 

MUST  BE  EXPANDED 

*) 

(* 

*) 
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(*  %INCLUDE  ADSCH.  *) 

(**) 

PROCEDURE  AD5CH(C0NST  KE  YE : ENTKE Y ; VAR  RR:RET_REC) ; EXTERNAL; 
(**) 


(*• 

(* 

(* 

<* 

(* 

<* 

c* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 


^FUNCTION: 

CONNECT  AN  INTERNAL  ITEM  TO  THE  CORRECT  PORTION  OF  THE 
NDS  SUPERSTRUCTURE. 


$DESCRIPTION  OF  ARGUMENTS: 


NAME 


I/O  DESCRIPTION 


SCH_ROOT 

KEYE 

RR 


$  COMMONS: 


I  KEY  OF  THE  SCHEMA_ROOT  TO  WHICH  THE 
INTERNAL  ITEM  WILL  BE  ATTACHED 
I  KEY  OF  THE  INTERNAL  ITEM  TO  BE  ATTACHED 
0  EXTERNAL  RETURN  CODE 
=0  OK 

>0  CRITICAL  ERROR 
<0  WARNING 


^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


^EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 


^PROCESSING  DESCRIPTION: 

DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS  (INTERNAL  ACTIONS) 
$ COMMENTS : 


$ CHANGE  CONTROL: 


REVISED:  06/19/86  B.  A.  ULMER  FRMI 

CHANGE  CALLING  PARAMETERS  TO  CRURUL  -  NEW  DELETE  RULES 


REVISED:  09/09/85  B.  A.  ULMER  FRMI 

ADD  TWO  NEW  PARAMETERS  TO  FNDURUL 

REVISED:  02/18/85  B.  A  .ULMER  FRMI 

CHANGED  STRUCTURE  OF  THE  INTERNAL  ITEM  FOT  IMPLEMENTATION  OF 
THE  CRB 


*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  REVISED:  10/04/84  E.  D.  SHREVE  FRMI  *) 

(*  TO  CHANGE  LIST  INCREMENT  WHEN  ADDING  TO  THE  INSTANCE  COLLECTOR  *) 

(*  CONSTITUENT  LIST  *) 

(*  *) 

(*  REVISED:  05/14/84  E.  D.  SHREVE  FRMI  *) 

(*  TO  RESET  THE  SCH_INST  'KIND'  TO  'SCH_INST'  AFTER  THE  ENTITY  *) 

(*  KIND  IS  PUT  INTO  THE  STANDARD  ARRAY  OF  THE  SCHEMA_ROOT  *) 

(*  *) 
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(*  %INCLUDE  ADSCHR.  *) 

(**) 

PROCEDURE  ADSCHR(CONST  KEYE :ENTKEY ;VAR  POSITION:LISTPSTN; 

VAR  RR:RET_REC); EXTERNAL; 

<**) 

(* - - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CONNECT  AN  INTERNAL  ITEM  TO  THE  SCHEMA  ROOT.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  SCHEMA  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  INTERNAL  ITEM  TO  BE  ATTACHED.  *) 

(*  OUTPUT  *) 

(*  POSITION  -  RELATIVE  POSITION  OF  THIS  SCHEMA  INSTANCE  *) 

(*  OR  CLASS  ENTITY  IN  THE  SCHEMA  ROOT'S  *) 

<*  CONSTITUENT  LIST.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  ADSCHR.  *) 
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(*  %INCLUDE  ADTLSM.  *) 

(**) 

PROCEDURE  ADTLSM( CONST  INCREMENT:LISTSIZE;CONST  KEYE :ENTKEY ; 

VAR  LISTREF:LISTPNTR;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - - - *) 

(*  *) 

(*  FUNCTION  *) 

(*  ADD  AN  ENTITY  TO  A  SYSTEM  LIST.  IF  LISTREF  IS  NIL,  THEN  *) 

(*  THE  LIST  IS  EMPTY.  IF  NO  ROOM  IS  AVAILABLE,  THEN  THE  LIST  *) 

(*  IS  EXPANDED  BY  INCREMENT  ENTITIES.  *) 

<*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

<*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  INCREMENT  -  THE  NUMBER  OF  ENTITIES  BY  WHICH  A  LIST  IS  *) 

(*  EXPANDED  AT  A  TIME.  *) 

(*  KEYE  -  KEY  OF  THE  ENTITY  TO  BE  ADDED.  *) 

(*  LISTREF  -  A  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  OUTPUT  *) 

(*  LISTREF  -  POINTER  TO  THE  SYSTEM  LIST  TO  WHICH  KEYE  *) 

(*  WAS  ADDED.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

<* - *) 

(**) 

(*  END  ^INCLUDE  ADTLSM.  *) 
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(*  %INCLUDE  ADTNM  *) 

(**) 

PROCEDURE  ADTNM( CONST  KEYE :ENTKEY ;VAR  KEYL:LISTKEY; 
VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 


(*— 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*-- 

(**) 


AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC 

VERSION:  MAS  VER  2  REVISED:  84/10/11  CC 

FUNCTION: 

ADD  AN  ENTITY  TO  THE  END  OF  AN  APPLICATION  LIST. 


ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX,  DEC  VAX  11/780 


DESCRIPTION  OF  ARGUMENTS: 


NAME 

KEYE 

KEYL 

KEYL 

RR 

COMMONS : 


I/O  DESCRIPTION 
I  KEY  OF  ENTITY  TO  BE  ADDED. 

I  KEY  OF  THE  APPLICATION  LIST  TO  WHICH  THE 
ENTITY  IS  ADDED. 

0  THE  KEY  OF  THE  LIST  WITH  THE  ENTITY  ADDED  TO 
THE  END. 

0  ERROR  CONDITION  RETURN  CODE. 

=  0  NORMAL  RETURN  CODE. 


PROCESSING  DESCRIPTION: 
COMMENTS : 


CHANGE  CONTROL: 

84/10/11  MAS  VER  2  D.  J.  KERCHNER 
UPDATED  DOCUMENTATION. 

84/10/04  MAS  VER  2  E.  D.  SHREVE 

CHANGED  DECLARATION  OF  KEYL  TO  VAR. 


(*  END  %INCLUDE  ADTNM  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 
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(*  %INCLUDE  BIGCREMM.  *) 

(**) 

PROCEDURE  BIGCREMM( CONST  KEYEU:ENTKEY; CONST  KEYEC :ENTKEY ; 

CONST  NUM: INTEGER; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  USER-CONSTITUENT  RELATION  BETWEEN  ENTITIES  *) 

(*  WITH  A  CONSTITUENT  LIST  OF  A  GIVEN  SIZE.  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYEU  -  KEY  OF  ENTITY  TO  BE  THE  USER.  *) 

(*  KEYEC  -  KEY  OF  ENTITY  TO  BL  THE  CONSTITUENT.  *) 

(*  NUM  -  LENGTH  OF  THE  CONSTITUENT  LIST.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

<*  *) 

(* - *) 

(**) 

(*  END  ^INCLUDE  BIGCREMM.  *) 
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(*  ^INCLUDE  CHKDEL  *) 

(**) 

PROCEDURE  CHKDEL(CONST  KEYE :ENTKEY ;  VAR  TEMP_DEL_LI ST : LI STPNTR ; 
VAR  MARK_LIST :LISTKEY ;  VAR  RR : RET_REC) ; EXTERNAL ; 


(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  CHECK  DELETABILITY  OF  A  GIVEN  ENTITY  BASED  ON  THE  RELATION-  *) 

(*  SHIP  BETWEEN  ITS  USERS  AND  ITSELF  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  WHOSE  DELETABILITY  IS  TO  BE  *) 

(*  CHECKED  *) 

(*  TEMP_DEL_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  ELIGIBLE  FOR  DELETE  *) 

(*  MARK_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  MARKED  *) 

(*  RR  0  RETURN  CODE  *) 

<*  *) 

(*  $COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 


3-641 


Cl  PS560240032U 
April  1990 


(*  %INCLUDE  CHKTDEL  *) 

(**) 

PROCEDURE  CHKTDEL( CONST  KEYE :ENTKEY ;  VAR  MARK_LIST:LISTKEY; 

VAR  TEMP_DEL_LIST:L1STKEY;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

<*  *) 

(*  $ FUNCTION:  *) 

(*  CHECK  DELETABILITY  OF  A  GIVEN  ENTITY  BASED  ON  THE  RELATION-  *) 

(*  SKIP  BETWEEN  ITS  USERS  AND  ITSELF  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  WHOSE  DELETABILITY  IS  TO  BE  *) 

(*  CHECKED  *) 

(*  MARK_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  TO  BE  MARKED  BY  MAED,  MAEDI  *) 

(*  TEMP_DEL_L 1ST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  ELIGIBLE  FOR  DELETE  BY  MAED,  MAEDI  *) 

(*  RR  0  RETURN  CODE  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXE CUT I ON  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  $COMMENTS :  *) 

(*  *) 

(*  $  CHANGE  CONTROL:  *) 

<*  *> 
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(*  7.INCLUDE  CMPCRB  *) 

(**) 

PROCEDURE  CMPCRB(VAR  CRBrCRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 
(**) 

(* - 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


- *) 

*) 

CC??*) 
C  C  *) 
*) 
*) 
*> 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*> 
*) 
*) 
*> 
*) 
*) 
*) 
*) 
*) 
*> 


AUTHOR: 

VERSION: 


B.  A. 
XXXX 


ULMER 


FRMI 


CREATED: 

REVISED: 


85/02/08 

YY/MM/DD 


FUNCTION: 

COMPREE 


THE  CRB 


ENVIRONMENT: 

IBM  PASCAL  LANGUAGE 

IBM  30XX,  43XX  DEPENDENT  CODE, 


OR  OTHER  APPROPRIATE  H/W. 


EXECUTION  PROCEDURE: 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 
DESCRIPTION  OF  ARGUMENTS: 


NAME 

CRB 

RR 


I/O 

1/0 

0 


COMMONS : 
C0M1 
VAR1 

VAR2 

COM2 

VAR3 


DESCRIPTION 

CONSTITUENT  READ  BLOCK  ADDRESS 
ERROR  CONDITION  RETURN  CODE 
=  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 


VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 

MUST  BE  PROVIDED 

VAR2  MUST  BE  SPECIFIED 

CHARACTER  DATA  MUST  BE  SPECIFIED 


PROCESSING  DESCRIPTION: 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 
FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 


COMMENTS : 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 
THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 

CHANGE  CONTROL:  *) 

YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 
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(*  DESCRIPTION  OF  CHANGE  HADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  CMPCRB  *) 


3-644 


Cl  PS560240032U 
April  1990 


(*  %INCLUDE  CNNODM.  *) 

(**) 

PROCEDURE  CNNODM(CONST  KEYEU : ENTKEY ; CONST  KEYEC :ENTKEY ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CONNECT  TWO  ENTITIES.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYEU  -  THE  KEY  OF  THE  ENTITY  TO  BE  THE  USER.  *) 

(*  KEYEC  -  THE  KEY  OF  THE  ENTITY  TO  BE  THE  CONSTITUENT.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  CODE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  CNNODM.  *) 
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(*  %INCLUD£  CNNODMN.  *) 

(**) 

PROCEDURE  CNNODMN ( CONST  KEYEU :  ENTKEY ;  CONST  KEYEC:ENTKEY; 

VAR  NUM: INTEGER; VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

- - 

(* 

(*  FUNCTION 

(*  CONNECT  TWO  ENTITIES  AND  CREATE  A  CONSTITUENT  LIST  OF  A 

(*  GIVEN  SIZE 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  ENTITY  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEYEU  -  THE  KEY  OF  THE  ENTITY  TO  BE  THE  USER. 

(*  KEYEC  -  THE  KEY  OF  THE  ENTITY  TO  BE  THE  CONSTITUENT. 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  CODE. 

<* 

(* - 

(**) 

(*  END  %INCLUDE  CNNODMN.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

-*) 
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(*  %INCLUDE  CNVOSP.  *) 

(**) 

PROCEDURE  CNVOSP(VAR  RR : RET_REC ; CONST  ID: INTEGER; 

CONST  THIS_ROUTINE :PGMNAME;  VAR  RC :EXT_REX_CODE) ; EXTERNAL; 


(**) 

(* - *) 

<*  *) 

(*  $ FUNCTION :  *) 

(*  CONVERT  THE  OUT  OF  CORE  SPACE  CONDTITION  TO  A  APPLICATION  *) 

(*  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RR  I  RETURN  RECORD  TO  BE  CONVERTED  *) 

(*  ID  I  INTEGER  ID  OF  THE  MAS  INTERFACE  ROUTINE  *) 

(*  THAT  ISSUED  THE  RETURN  CODE  *) 

<*  THIS_ROUTINE  I  CHARACTER  REPRESENTATION  OF  THE  INTERFACE*) 

(*  ROUTINE  THAT  ISSUED  THE  RETURN  CODE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CONVERTS  THE  OUT  OF  CORE  SPACE  CONDITION  TO  APPLICATION  USER*) 

(*  RECOQNIXEABLE  FORM  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  CNVRR .  *) 

(**) 

PROCEDURE  CNVRR(CONST  RR:RET_REC; CONST  PGM_ID: INTEGER; 

CONST  PGM_NAME :  PGMNAME;  VAR  RC :EXT_RET_CODE) ; EXTERNAL; 

<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  GET  THE  EXTERNAL  RETURN  CODE  CORRESPONDING  TO  THE  INTERNAL  *) 

(*  FORMAT.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RR  I  RETURN  RECORD  TO  BE  CONVERTED  *) 

(*  PGM_ID  I  INTEGER  ID  OF  THE  MAS  INTERFACE  ROUTINE  *) 

(*  THAT  ISSUED  THE  RETURN  CODE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

<*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CONVERTS  THE  INTERNAL  RETURN  CODE  TO  EXTERNAL  RETURN  CODE  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

C*  *) 

(*  REVISED:  85/07/11  B.  A.  ULMER  FRMI  *) 

(*  CHANGED  TO  ADD  ERROR  MESSAGE  AND  PROGRAM  NAME  TO  MSTATUS  COMMON*) 

(*  WHEN  AN  INTERFACE  GETS  A  NONE  ZERO  RETURN  CODE  *) 

<*  *) 
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(*  %INCLUDE  CPYAUDB  *) 

(**) 

PROCEDURE  CPYAUDB (VAR  ENTBPNTR : ENTPNTR ; VAR  ENTDEF : ENTBLOCK ; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  STORE  THE  VALUE  OF  AN  APPLICATION  ENTITY  BLOCK  IN  AN  *) 

(*  UNINITIALIZED  SYSTEM  UDB .  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION 

(*  ENTDEF  I  ENTBLOCK  CONTAINING  THE  VALUES  TO  STORE.  *) 

(*  ENTBPNTR  0  POINTER  TO  ENTBLOCK  CREATED.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  CPYAUDB  USES  AMPXMOVE  A  SYSTEM  ROUTINE.  AMPXMOVE  MOVES  *) 

(*  DATA  FROM  MEMORY  TO  MEMORY  (THE  NUMBER  OF  BYTES  TO  MOVE  *) 

(*  MUST  BE  SPECIFIED).  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  OF  ENTDEF  TO  VAR.  *) 

C*  *) 

<* - *) 

(**) 

(*  END  ^INCLUDE  CPYAUDB  *) 
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(*  %INCLUDE  CPYCST .  *) 

(**) 

PROCEDURE  CPYCST (CONST  SCH_KEY  :  ENTKEY; 

VAR  KEY1  :  LISTKEY; 

VAR  LIST_LENG  :  LISTSIZE; 

VAR  RR  :  RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  ADD  THE  ENTITIES  IN  A  CONSTITUENT  LIST  INTO  A  LIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  SCH-KEY  -  KEY  OF  A  CLASS  OR  ENTITY  COLLECTOR.  *) 

(*  KEY1  -  KEY  OF  THE  LIST  ONTO  WHICH  THE  ENTITIES  *) 

(*  WILL  BE  ADDED.  *) 

(*  OUTPUT  *) 

(*  LIST_LENG  -  TOTAL  LENGTH  OF  ALL  CNST  ADDED  TO  LIST.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  IF  SCH_KEY  IS  AN  ENTITY  COLLECTOR,  THEN  ALL  CONSTITUENTS  *) 

(*  ARE  ADDED  TO  THE  LIST.  IF  SCHJCEY  IS  A  CLASS  COLLECTOR,  *) 

(*  'CPYCST'  IS  CALLED  RECURSIVELY  TO  PROCESS  THE  ENTITY  *) 

(*  COLLECTORS  THAT  ARE  CONSTITUENTS  OF  SCHJCEY.  LIST_LENG  IS  *) 

(*  ACCUMULATED  FOR  ALL  RECURSIONS.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  CPYCST  *) 
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(*  %INCLUDE  CPYLSM.  *) 

(**) 

PROCEDURE  CPYLSM( CONST  LISTFROM  :  LISTPNTR ; 

VAR  POSITION  :  LISTPSTN; 

VAR  LISTTO  :  LISTPNTR; 

VAR  RR  :  RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  COPY  THE  NON-VACANT  ELEMENTS  OF  LISTFROM  TO  LISTTO.  IF  *) 

(*  LISTTO  WAS  INITIALIZED,  IT  IS  DELETED  PRIOR  TO  COPYING.  *) 

(*  POSITION  IS  SET  TO  THE  BEGINNING  OF  LISTTO.  CURRENT  LENGTH  *) 

(*  OF  OF  LISTTO  IS  SET  TO  CURRENT  LENGTH  OF  LISTFROM.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LISTFROM  -  POINTER  TO  SYSTEM  LIST  TO  BE  COPIED.  *) 

(*  OUTPUT  *) 

(*  LISTTO  -  POINTER  TO  SYSTEM  LIST  TO  WHICH  COPY  IS  MADE.*) 

(*  POSITION  -  SET  TO  INDICATE  THE  BEGINNING  OF  LISTTO.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

<* - *) 

(**) 

(*  END  %INCLUDE  CPYLSM.  *) 
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(*  %INCLUDE  CPYNM.  *) 

(**) 

PROCEDURE  CPYNM(CONST  KEYL:LISTKEY ;VAR  KEYLOUT : LI STKEY ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  NEW  LIST  WHICH  CONTAINS  A  COPY  OF  THE  ENTITIES  *) 

(*  REFERENCED  BY  KEYL.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

<*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYL  -  KEY  OF  THE  LIST  TO  BE  COPIED.  *) 

(*  OUTPUT  *) 

(*  KEYLOUT  -  KEY  OF  THE  NEW  LIST  WHICH  IS  A  COPY  OF  THE  *) 

(*  INPUT  LIST.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  CPYNM.  *) 
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(*  %INCLUDE  CRCLST .  *) 

(**) 

‘  PROCEDURE  CRCLST(CONST  KEYE:ENTKEY; CONST  LISTREFrLISTPNTR; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* - - - *) 

<*  *) 

(*  FUNCTION  *) 

(*  CREATE  RELATIONS  BETWEEN  A  USER  ENTITY  AND  A  LIST  OF  *) 

(*  CONSTITUENTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

<*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  USER  ENTITY  OF  THE  RELATIONS.  *) 

(*  LISTREF  -  POINTER  TO  SYSTEM  LIST  OF  CONSTITUENTS.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  CRCLST.  *) 
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(*  %INCLUDE  CRCLSTN.  *) 

(**) 

PROCEDURE  CRCLSTN (CONST  KEYE :ENTKEY; CONST  LISTREF :LISTPNTR ; 

VAR  NUM: INTEGER;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  RELATIONS  BETWEEN  A  USER  ENTITY  AND  A  LIST  OF  *) 

(*  CONSTITUENTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  USER  ENTITY  OF  THE  RELATIONS.  *) 

(*  LISTREF  -  POINTER  TO  SYSTEM  LIST  OF  CONSTITUENTS.  *) 

(*  NUM  -  THE  LENGTH  OF  THE  CONSTITUENT  LIST.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  ^INCLUDE  CRCLSTN.  *) 
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(*  ^INCLUDE  CRCNM.  *) 

(**> 

PROCEDURE  CRCNM( CONST  KEYEiENTKEY; CONST  KEYL  rLISTKEY ; 
VAR  RR : RET_RE C) ; EXTERNAL; 


(**) 

(* - *) 

(*  *) 

<*  FUNCTION  *) 

(*  CREATE  RELATIONS  BETWEEN  A  USER  ENTITY  AND  A  LIST  OF  *) 

(*  CONSTITUENTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

<*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  USER  ENTITY  OF  THE  RELATIONS.  *) 

<*  KEYL  -  KEY  OF  LIST  OF  CONSTITUENT  ENTITIES.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 


(*  END  %INCLUDE  CRCNM.  *) 
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(*  %INCLUDE  CRDLST  *) 

(**) 

PROCEDURE  CRDLST (CONST  KEY1 : ANYKEY; VAR  CNSTS_SRTLST rLISTPNTR ; 
VAR  RR:RET_REC); EXTERNAL; 

(**) 


<*■ 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

<* 

<* 

(* 

(* 

(* 

(* 


^FUNCTION: 

CREATE  A  SORTED  INCLUSIVE  LIST  OF  AN  ENTITY  OR  A  LIST  OF 
ENTITIES  AND  THEIR  DIRECTAND  INDIRECT  CONSTITUENTS. 

^DESCRIPTION  OF  ARGUMENTS: 

NAME 

KEY1 

CNSTS  SRTLST 


$COMMONS : 

NONE 

^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

^PROCESSING  DESCRIPTION: 

IF  KEY1  IS  AN  ENTKEY  THEN 

AN  INCLUSIVE  LIST  OF  THE  ENTITIES  CONSTITUENTS  IS  BUILT 
INCLUDING  KEY1 . 

IF  KEY1  IS  A  LIST  THEN 

A  LIST  OF  THE  INCLUSIVE  CONSTITUENTS  OF  THE  ENTITIES  ON 
KEY1  IS  CREATED,  INCLUDING  THE  ENTITIES  ON  KEY1. 

^COMMENTS: 

THE  OUTPUT  LIST  IS  SORTED  IN  USER-CONSTITUENT  ORDER. 

$ CHANGE  CONTROL: 


I/O  DESCRIPTION 

I  AN  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  PUT 
ON  A  LIST  WITH  THEIR  CONSTITUENTS . 

0  AN  INCLUSIVE  LIST  OF  AN  ENTITY  OR  LIST 
AND  THIER  DIRECT  AND  INDIRECT  CONSTS .  IN 
USER-CONSTITUENT  ORDER. 

0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
>  0  CRITICAL  ERROR 
<  0  WARNING 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 
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(*  REVISED:  04/26/85  E.  D.  SHREVE  W315  *) 

(*  CHANGED  TO  USE  THE  INTER  PROCESS  FLAG  (MAPROB) .  *) 

(*  *) 

(*  REVISED:  02/18/85  B.  A.  ULMER  W315  *) 

(*  CHANGED  TO  IMPLEMENT  THE  CONST.  READ  BLOCK.  *) 

(*  *) 

(*  REVISED:  11/01/84  E.  D.  SHREVE  W315  *) 

(*  REMOVE  CALL  TO  DISPLSM  *) 

(*  *) 

(*  ORIGINATED:  08/23/84  C.  J.  SAMPLE  W315  *) 

<*  *) 

(* - *) 

(*END - *) 

(*  END  %INCLUDE  PROG_ID  *) 
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(*  7.INCLUDE  CREMM.  *) 

(**) 

PROCEDURE  CREMM( CONST  KEYEU:ENTKEY; CONST  KEYEC  tENTKEY ; 

VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  USER-CONSTITUENT  RELATION  BETWEEN  ENTITIES.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYEU  -  KEY  OF  ENTITY  TO  BE  THE  USER.  *) 

(*  KEYEC  -  KEY  OF  ENTITY  TO  BE  THE  CONSTITUENT.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  % INCLUDE  CREMM.  *) 
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(*  %INCLUDE  CRURUL.  *) 

(**) 

PROCEDURE  CRURUL( CONST  ENTITY_TYPE :ORD_KIND;VAR  GROUP :T_GROUP_ARRAY; 
VAR  NUM_GROUP :LISTPSTN;  VAR  MIN_CNST:LISTPSTN) ; EXTERNAL; 

(**)  . 


(*■ 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

<* 

<* 


■*) 

*) 


$ FUNCTION:  *) 

CREATES  THE  USER'S  RULES.  RULES  OF  CONNECTIVITY  USED  TO  *) 

DETERMINE  DELETABILITY  OF  ENTITIES.  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

ENTITY_TYPE  I  ENTITY  KIND  VALUE  WHICH  WILL  HAVE  THE  *) 

DELETE  RULE  * ) 

GROUP  0  ARRAY  THAT  WILL  BE  FILLED  WITH  THE  RULES  *) 

AND  NUMBER  OF  CONSTITUENTS  OF  EACH  *) 

DIFFERENT  RELATIONSHIP  THAT  THIS  ENTITY  *) 
KIND  CAN  HAVE  WITH  ITS  CONSTITUENTS  *) 

NUM_GROUP  0  NUMBER  OF  DIFFERENT  RELATIONSHIPS  THIS  *) 

ENTITY  CAN  HAVE  WITH  ITS  CONSTITUENTS  *) 

MIN_CNST  0  MINIMUM  NUMBER  OF  CONSTITUENTS  THAT  THIS  *) 

ENTITY  CAN  HAVE  WHEN  IT  HAS  A  GROUP  OF  *) 
CONSTITUENTS  THAT  ARE  "SECONDARY"  *) 

RC  0  EXTERNAL  RETURN  CODE  *) 

=  0  OK  RETURN  CODE  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 

*) 

$ COMMONS:  *) 

*> 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

^EXECUTION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

??????ARE  SET  TO  INDICATE  IF  THE  RELATIONSHIP  BETWEEN  THE  *) 

USER  AND  ITS  CONSTITUTES  IS  DEPENDENT  OR  INDEPENDENT  AND  *) 

STRONG  OR  WEAK.  *) 

DEFAULT  RULE  IS  DEPENDENT/STRONG.  *) 

*) 

^COMMENTS:  *) 

*> 
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(* 

$ CHANGE  CONTROL: 

*) 

(* 

*) 

<* 

REVISED:  06/19/86 

B.  A.  ULMER 

FRMI 

*) 

<* 

REDO  LOGIC  OF  HOW 

CRURUL  WORKS  BASED  ON  THE 

NEW  DELETE  RULES 

*) 

(* 

*) 

(* 

REVISED:  09/  /S5 

B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  ENTITY  KINDS  : 

SO  AS  TO  TEST  THE  NEW  DELETE  RULES 

(2070, 

*> 

(* 

2080,  2090) 

*) 

<* 

*) 

(* 

REVISED:  09/  /85 

B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  PARAMETERS  TO 

HANDLE  THE  TWO  NEW  DELETE 

RULES 

*) 

<* 

*) 

(* 

REVISED:  09/18/84 

D.  J.  KERCHNER 

FRMI 

*) 

<* 

ADDED  I/S  RULE  FOR  THE  PICK  ENTITY 

*) 

(* 

*) 
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(*  %INCLUDE  DELCNST  *) 

(**) 

PROCEDURE  DELCNST(CONST  KEYE:ENTKEY;  VAR  TEMP_DEL_L I S T : L I S TPNTR ; 

VAR  MARK_LIST:LISTKEY;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

<*  *) 

(*  $ FUNCTION:  *) 

(*  DETERMINES  THE  DELETABILITY  OF  GIVEN  ENTITY’S  CONSTITUENTS  *) 

(*  BASED  ON  THE  RELATIONSHIP  THE  CONSTITUENT  HAS  WITH  ITS  USERS*) 

<*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  WHOSE  CONSTITUENTS  WILL  HAVE  THEIR*) 

(*  DELETABILITY  DETERMINED  *) 

(*  TEMP_DEL_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  ELIGIBLE  FOR  DELETE  *) 

(*  MARK_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  MARKED  *) 

(*  RR  0  RETURN  CODE  *) 

<*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  $ COMMENTS :  *) 

(*  *> 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  DELCRBE  *) 

(**) 

PROCEDURE  DELCRBE (VAR  CRB:CRBPNTR;  CONST  EKEY:ENTKEY ; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

<**) 

(* - *) 

(*  *) 

(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  DELETE  A  CRB  ENTRY  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

<*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  EKEY  I  ENTITY  KEY  OF  ENTRY  TO  BE  DELETED  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

<*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 
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(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  DELCRBE  *) 


3-663 


Cl  PS560240032U 
April  1990 


(*  XINCLUDE  DELEMM.  *) 

(**) 

PROCEDURE  DELEMM(VAR  KEYE : ENTKE Y ; VAR  RR:RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  DELETE  ALL  REFERENCES  TO  THIS  ENTITY  FROM  ALL  APPLICATION  *) 

(*  LISTS  AND  DISPOSE  OF  THE  ENTITY.  TO  COMPLETE  DELETE  ACTION  *) 

(*  REQUIRES  BREAKING  ALL  USER  AND  CONSTITUENT  CONNECTIONS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  ENTITY  TO  BE  DELETED.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  AN  ENTRY  IN  AN  APPLICATION  LIST  HAS  A  FORM  OF  INT_ITEM.  *) 

(*  ALL  REFERENCES  TO  IT  WILL  BE  DELETED.  THE  USER  WILL  NEVER  *) 

(*  DIRECTLY  DELETE  ENTITIES  OF  FORM  INT_ROOT.  THESE  ARE  ONLY  *) 

<*  DELETED  AS  A  RESULT  OF  THE  CLEANUP  ASSOCIATED  WITH  THE  *) 

(*  DELETION  OF  AN  NDS .  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  DELEMM.  *) 
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(*  ‘/INCLUDE  DELPLST .  *) 

<**) 

PROCEDURE  DELPLST(CONST  INCREMENT: LI STS I ZE; CONST  IPOS rLISTINDX; 
VAR  POSITION:LISTPSTN;VAR  LISTREF:LISTPNTR;VAR  RR:RET_REC) ; 
EXTERNAL ; 


(**) 

(*— 

(* 

<* 

(* 

(* 

(* 

c* 

(* 

(* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

<* 

<* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

■(* 

<* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 


- - - *) 

*) 

$ FUNCTION:  *) 

REMOVE  AN  ENTITY  FROM  A  SPECIFIED  POSITION  IN  A  SYSTEM  LIST  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

INCREMEN  I  NUMBER  OF  ENTITIES  BY  WHICH  SYSTEM  LIST  *) 

LIST  IS  EXPANDED  OR  REDUCED  *) 

IPOS  I  POSITION  IN  THE  LIST  FROM  WHICH  THE  *) 

ENTITY  WILL  BE  REMOVED  *) 

POSITION  I/O  LAST  LOCATION  ON  THE  SYSTEM  LIST  THAT  WAS*) 

PROCESSED  *) 

LISTREF  I  POINTER  TO  SYSTEM  LIST  FROM  WHICH  ENTITY  *) 

WILL  BE  REMOVED  *) 

RC  0  EXTERNAL  RETURN  CODE  *) 

=  0  OK  RETURN  CODE  *) 

=  1  YOU  BLEW  IT  *) 

=  2  THE  ROUTINE  BLEW  IT  *) 

*) 

$ COMMONS:  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

$ EXECUTION  PROCEDURE:  *) 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

SHIFT  ALL  FOLLOWING  ENTITIES  UP  UNTIL  ALL  VACANT  ENTITIES  *) 

ARE  AT  THE  END  OF  THE  LIST.  RECALCULATE  THE  POSITION  IF  *) 

IT  WAS  AFFECTED  BY  THIS  REMOVAL.  IF  MORE  THAN  INCREMENT  *) 

ENTITIES  ARE  VACANT,  THEN  COMPRESS  THE  LIST  BY  REMOVING  *) 

THE  INCREMENT  ENTITIES.  *) 

*) 

SCOMMENTS:  *) 

*) 

$ CHANGE  CONTROL:  *) 

*) 
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(* 

REVISED:  12/30/85 

B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  PROCESSING  FOR  LARGE 

LISTS 

*) 

(* 

*) 

(* 

REVISED:  02/06/85 

E.  D.  SHREVE 

FRMI 

*) 

(* 

TEST  FOR  NIL  POINTER 

*) 

(* 

*) 

(* 

REVISED:  12/24/84 

R.  A.  MCCLUSKEY 

FRMI 

*) 

(* 

ADDED  SYSTEM  LIST  CURRENT 

LENGTH  INDICATOR  —  LSTLNM 

*) 

(* 

*) 
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(*  %INCLUDE  DELPNLA .  *) 

(**) 

PROCEDURE  DELPNLA (VAR  POSITION:LISTPSTN;  VAR  LISTAiLISTPNTR; 

VAR  RR:RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION  *) 

(*  DELETE  ALL  APPL  LISTS  AFTER  A  SPECIFIED  POSITION  IN  THE  *) 

(*  LIST_OF_LISTS  EXCEPT  THOSE  THAT  ARE  'LOCKED'.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  POSITION  I  POSITION  IN  LISTA  TO  START  DELETE.  *) 

(*  LISTA  I  LIST_OF_LISTS  SYSTEM  LIST  *) 

(*  RR  0  RETURN  CODE  *) 

(*  =0  GOOD  RETURN  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS  *) 

(*  NONE  *) 

<*  *) 

(*  $ENVIR0NMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  OF  THE  MODEL  ACCESS  SOFTWARE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  STARTING  WITH  THE  INPUT  POSITION,  EACH  APPL  LIST  ON  THE  *) 

(*  INPUT  LIST_OF_LISTS  (LISTA)  IS  PROCESSED.  IF  THE  LIST  *) 

(*  IS  'LOCKED'  (DELTFLG  =  NODEL),  THE  LISTKEY  IS  PLACED  ON  A  *) 

(*  TEMPORARY  LIST;  ELSE,  THE  LIST  IS  DELETED.  AFTER  ALL  *) 

<*  ENTRIES  ARE  PROCESSED,  THE  TEMPORARY  LIST  IS  MERGED  WITH  *) 

(*  ANY  ENTRIES  STILL  REMAINING  ON  LISTA.  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

<*  *) 

(*  ORIGINATED:  04/23/85  E.  D.  SHREVE  W315  *) 

(* - *) 

(**) 

(*END  %INCLUDE  DELPNLA.  *) 
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(*  %INCLUDE  DELRLSM.  *) 

(**) 

PROCEDURE  DELRLSM( CONST  INCREMENT:LISTSIZE;CONST  KEYE :ENTKEY ; 
VAR  POSITION:LISTPSTN;VAR  LI STREF : LI STPNTR ; VAR  RR:RET_REC) ; 
EXTERNAL; 

(**) 


(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  REMOVE  AN  ENTITY  FROM  A  SYSTEM  LIST.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INCREMENT  I  NUMBER  OF  ENTITIES  BY  WHICH  A  SYSTEM  LIST*) 

(*  LIST  IS  EXPANDED  OR  REDUCED  *) 

(*  KEYE  I  KEY  OF  THE  ENTITY  TO  BE  REMOVED  FROM  THE  *) 

(*  LIST  *) 

(*  POSITION  I/O  LOCATION  ON  THE  SYSTEM  LIST  OF  ENITY  *) 

(*  TO  BE  PROCESSED  —  UPDATED  LOCATION  OF  *) 

(*  ENTITY  ORIGINALLY  INDICATED  BY  POSITION  *) 

(*  LISTREF  I  POINTER  TO  SYSTEM  LIST  FROM  WHICH  ENTITY  *) 

(*  WILL  BE  REMOVED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  *) 

(*  $ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

{  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  SHIFT  ALL  FOLLOWING  ENTITIES  UP  UNTIL  ALL  VACANT  ENTITIES  *) 

(*  ARE  AT  THE  END  OF  THE  LIST.  RECALCULATE  THE  POSITION  IF  *) 

(*  IT  WAS  AFFECTED  BY  THIS  REMOVAL.  IF  MORE  THAN  INCREMENT  *) 

(*  ENTITIES  ARE  VACANT,  THEN  COMPRESS  THE  LIST  BY  REMOVING  *) 

(*  THE  INCREMENT  ENTITIES.  *) 

(*  *) 

(*  $ COMMENTS :  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 
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(*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  FRMI  *) 
(*  ADD  PROCESSING  FOR  LARGE  LISTS  *) 
(*  *) 
(*  REVISED:  12/24/84  R.  A.  MCCLUSKEY  FRMI  *) 
(*  ADDED  SYSTEM  LIST  CURRENT  LIST  INDICATOR  —  LSTLNM  *) 
(*  *) 
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(*  ^INCLUDE  DELRUL  *) 

(**) 

PROCEDURE  DELRUL(VAR  KEYE :ENTKEY ; VAR  DEL_LIST :LISTPNTR ; VAR 
MARK_LI ST : LI STKEY ; VAR  RR : RET_REC ) ; EXTERNAL  ? 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  AN  ENTITY  ACCORDING  TO  THE  DELETE  RULES.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  TO  BE  DELETED  OR  MARKED  FOR  *) 

(*  DELETION  *) 

(*  DEL_LST  I  LIST  OF  KEYS  THAT  ARE  ELIGIBLE  FOR  *) 

(*  DELETION  *) 

(*  MARK_LIST  0  LIST  OF  ENTITIES  WHICH  HAVE  BEEN  MARKED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  $ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

<*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  ???????  TY'S  USER  LIST  IS  READ  AND  THE  DELETE  RULES  FOR  *) 


(*  EACH  USER  ARE  CHECKED  TO  DETERMINE  IF  ENTITY  CAN  BE  DELETED.  *) 
(*  IF  UNABLE  TO  DELETE  THE  ENTITY  THEN  CHECK  IF  THE  USER  IS  ON  *) 
<*  THE  DELETE  LIST.  IF  ON  THE  LIST  THEN  DELETE  THE  ENTITY  ELSE  *) 


(*  MARK  IT  FOR  DELETE.  IF  UNABLE  TO  MARK  FOR  DELETE  THEN  ADD  *) 
(*  ENTITY  TO  THE  EXCEPTION  LIST.  *) 
(*  *) 
(*  ^COMMENTS:  *) 
(*  THE  DELETE  RULES  ARE  STORED  IN  THE  INSTANCE  COLLECTOR  OF  AN  *) 
(*  ENTITY'S  USER  AS  DEPENDENCE  AND  STRENGTH  FLAGS.  DEPENDENCE  *) 
(*  IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT  (FALSE).  *) 
(*  STRENGTH  IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT  *) 
(*  (FALSE).  *) 
(*  IF  THERE  EXISTS  A  DEPENDENT/STRONG  USER  CONNECTION,  THEN  *) 
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(*  THE  ENTITY  MAY  NOT  BE  DELETED.  *) 

(*  IF  THERE  EXISTS  A  DEPENDENT/WEAK  USER  CONNECTION,  BUT  NO  *) 

(*  DEPENDENT/STRONG  CONNECTION  THEN  THE  ENTITY  IS  MARKED  FOR  *) 

(*  DELETION  AND  IF  ANY  OF  ITS  USER  CONNECTIONS  WERE  *) 

(*  INDEPENDENT/WEAK,  THEN  IT  IS  DISCONNECTED  FROM  THOSE  *) 

(*  INDEPENDENT/WEAK  USER  CONNECTIONS.  *) 

(*  IF  THERE  ARE  NO  DEPENDENT/STRONG  NOR  DEPENDENT/WEAK  *) 

(*  USER  CONNECTIONS  OR  NO  USERS  AT  ALL,  THEN  THE  ENTITY  IS  *) 

(*  DELETED  AND  ITS  CONSTITUENTS  ARE  PROCESSED  THE  SAME  AS  *) 

(*  THE  ENTITY  WAS.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  09/02/86  B.  A.  ULMER  DBMA  *) 

(*  REMOVE  DUPLICATE  ENTITTES  FROM  DELETE  LIST  -  CAUSES  A  PROBLEM  *) 

(*  WHEN  AN  ENTITY  HAS  THE  SAME  CNST  TWICE  *) 

(*  *) 

(*  REVISED:  06/19/86  B.  A.  ULMER  FRMI  *) 

(*  MAJOR  REWRITE  DUE  TO  NEW  DELETE  RULES  *) 

(*  *) 

(*  REVISED:  12/17/85  B.  A.  ULMER  FRMI  *) 

(*  FIX  PROBLEM  WITH  CODE  FOR  NEW  DELETE  RULES  *) 

(*  *) 

(*  REVISED:  09/05/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES  *) 

(*  *) 

(*  ORIGINATED:  06/15/84  C.  J.  SAMPLE  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(**) 

(*  END  XINCLUDE  DELRUL.  *) 
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(*  %INCLUDE  DELSCH.  *) 

(**) 

PROCEDURE  DELSCH(CONST  KEYE : ENTKEY ;  VAR  RR :RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  DISCONNECT  AN  INTERNAL  ITEM  FROM  THE  CORRECT  PORTION  OF  *) 

(*  THE  NDS  SUPERSTRUCTURE.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  SCHEMA  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  INTERNAL  ITEM  TO  BE  DETACHED.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  CHANGE  CONTROL  *) 

(*  CHANGED:  12/14/84  E.  SHREVE  -  TO  DELETE  THE  INSTANCE  *) 

(*  COLLECTOR  IF  ALL  IT'S  CNSTS  ARE  DELETED.  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  DELSCH.  *) 
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(*  %INCLUDE  DELTLSM.  *) 

(**) 

-  PROCEDURE  DELTLSM( CONST  INCREMENT :LISTSIZE;VAR  LISTREF:LISTPNTR; 
VAR  RR:RET_REC); EXTERNAL; 

<**) 

<**) 


(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  REMOVES  THE  LAST  NON-VACANT  ENTITY  REFERENCE  IN  A  LIST.  *) 

(*  IF  THIS  REMOVAL  PRODUCES  MORE  THAN  INCREMENT  VACANT  *) 

(*  ENTITIES  AT  THE  BOTTOM  OF  THE  LIST,  THEN  THE  VACANT  *) 

(*  ENTITIES  ARE  ELIMINATED.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  LISTREF  I  LIST  WHOSE  LAST  ENTITY  IS  TO  BE  REMOVED  *) 

(*  INCREMENT  I  MAXIMUM  NUMBER  OF  VACENT  ENTITIES  THE  *) 

(*  LAST  MIGHT  CONTAIN  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  *  2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  ^COMMONS:  *) 

<*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXE CUT I ON  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

<*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  PROCESSING  FOR  LARGE  LISTS  *) 

(*  *) 

(*  REVISED:  12/24/84  R.  A.  MCCLUSKEY  FRMI  *) 

(*  ADDED  SYSTEM  LIST  CURRENT  LENGTH  INDICATOR  —  LSTLNM  *) 

(*  *) 
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(*  %INCLUDE  DETCNST  *) 

(**) 

PROCEDURE  DETCNST(CONST  KEYE :ENTKEY ;  VAR  MARK_LIST  rLISTKEY ; 

VAR  TEMP_DEL_LIST rLISTKEY;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - - - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DETERMINES  THE  DELETABILITY  OF  GIVEN  ENTITY’S  CONSTITUENTS  *) 

(*  BASED  ON  THE  RELATIONSHIP  THE  CONSTITUENT  HAS  WITH  ITS  USERS*) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  WHOSE  CONSTITUENTS  WILL  HAVE  THEIR*; 

(*  DELETABILITY  DETERMINED  *) 

(*  MARK_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  MARKED  *) 

(*  TEMP_DEL_LIST  I/O  LIST  WHICH  CONTAINS  ENTITIES  THAT  ARE  *) 

(*  ELIGIBLE  FOR  DELETE  *) 

(*  RR  0  RETURN  CODE  *) 

(*  *) 

(*  $COMMONS :  *) 

<*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  DETRUL  *) 

(**) 

PROCEDURE  DETRUL(CONST  KEYE :ENTKEY ;VAR  MARK_LIST:LISTKEY ; 

VAR  DEL_LIST :LISTKEY; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  TEST  DELETE  OF  AN  ENTITY  ACCORDING  TO  THE  DELETE  RULES.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  TO  TESTED  FOR  DELETION  OR  MARK  FOR*) 

(*  DELETION  *) 

(*  MLIST  I/O  LIST  OF  ENTITIES  WHICH  MAY  BE  MARKED  *) 

(*  DLIST  I/O  LIST  OF  ENTITIES  WHICH  MAY  BE  DELETED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  ?????  TITY'S  USERS  LIST  IS  READ  AND  THE  DELETE  RULES  FOR  *) 

(*  EACH  USER  ARE  CHECKED  TO  DETERMINE  IF  THE  ENTITY  CAN  BE  *) 

(*  DELETED.  *) 

(*  THE  DELETE  RULES  ARE  STORED  IN  THE  INSTANCE  COLLECTOR  OF  AN  *) 

(*  ENTITY’S  USER  AS  DEPENDENCE  AND  STRENGTH  FLAGS.  DEPENDENCE  *) 

(*  IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT  (FALSE).  *) 

(*  STRENGTH  IS  DEFINED  AS  DEPENDENT  (TRUE)  OR  INDEPENDENT  *) 

(*  (FALSE).  *) 

(*  IF  THERE  EXISTS  A  DEPENDENT/STRONG  USER  CONNECTION,  THEN  *) 

(*  THE  ENTITY  MAY  NOT  BE  DELETED  AND  IT  IS  ADDED  TO  THE  *) 

(*  EXCEPTION  LIST.  *) 

(*  IF  THERE  EXISTS  A  DEPENDENT/WEAK  USER  CONNECTION,  BUT  NO  *) 

(*  DEPENDENT/STRONG  CONNECTION  THEN  THE  ENTITY  CAN  BE  *) 

(*  MARKED  FOR  DELETION  AND  ADDED  TO  THE  MARK  LIST.  *) 

(*  IF  THERE  ARE  NO  DEPENDENT/STRONG  USER  CONNECTIONS,  *) 


3-675 


Cl  PS560240032U 
April  1990 


(*  NO  DEPENDENT/WEAK  USER  CONNECTIONS,  *) 

(*  NO  USERS  AT  ALL,  OR  *) 

(*  ALL  USERS  ARE  ON  THE  DELETE  LIST,  *) 

(*  THEN  *) 

(*  THE  ENTITY  IS  DELETABLE  AND  ADDED  TO  THE  DELETE  LIST.  *) 

(*  IF  THE  ENTITY  IS  MARKED  FOR  DELETION  OR  *) 

(*  IS  ON  THE  MARK  LIST,  *) 

(*  THEN  *) 

(*  ITS  CONSTITUENTS  ARE  PROCESSED  THE  SAME  AS  THE  ENTITY.  *) 

c*  *) 

(*  $COMMENTS :  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  06/19/86  B.  A.  ULMER  FRMI  *) 

(*  MAJOR  REWRITE  DUE  TO  THE  NEW  DELETE  RULES  *) 

(*  *) 

(*  REVISED:  04/18/86  E.  D.  SHREVE  FRMI  *) 

(*  TO  SET  DELETE  RULES  ONLY  WHEN  USER  IS  NOT  IN  DELIST  *) 

(*  *) 

(*  REVISED:  09/06/85  B.  A.  ULMER  FRMI  *) 

(*  ADDED  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES  *) 

(*  *) 

(*  ORIGINATED:  06/28/84  C.  J.  SAMPLE  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  * ) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

<**) 

(*  END  XINCLUDE  DETRUL.  *) 
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(*  XINCLUDE  DIFLSM.  *) 

(**) 

PROCEDURE  DIFLSM(CONST  LISTltLISTPNTR; CONST  LIST2 :LISTPNTR; 

VAR  POSITION: LISTPSTN; VAR  LISTOUT:LISTPNTR;VAR  RR:RET_REC) ; 
EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  SYSTEMS  LIST  CONSISTING  OF  ALL  ENTITIES  IN  LIST1  *) 

(*  THAT  ARE  NOT  IN  LIST2.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LIST1 ,  LIST2  -  THE  LISTS  WHOSE  DIFFERENCE  IS  TO  BE  FOUND.*) 

C*  OUTPUT  *) 

(*  LISTOUT  -  LIST  CONTAINING  THE  DIFFERENCE  OF  THE  *) 

(*  TWO  LISTS.  *) 

(*  POSITION  -  INTEGER  INDICATING  BEGINNING  OF  LISTOUT.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  DIFLSM.  *) 
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(*  %INCLUDE  DISPCRB  *) 

(**) 

PROCEDURE  DISPCRB(VAR  CRB:CRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

c* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 


- *) 

*) 

AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

*) 


FUNCTION:  *) 

DISPOSE  OF  CRB  *) 

*) 

ENVIRONMENT:  *) 

IBM  PASCAL  LANGUAGE  *) 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

*) 

EXECUTION  PROCEDURE:  *) 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

*> 

DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

RR  0  ERROR  CONDITION  RETURN  CODE  *) 

=  0  OK  RETURN  CODE  *) 

=  1  YOU  BLEW  IT  *) 

=  2  THE  ROUTINE  BLEW  IT  *) 

*) 

COMMONS:  *) 

C0M1  *) 

VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

MUST  BE  PROVIDED  *) 

VAR2  I  VAR 2  MUST  BE  SPECIFIED  *) 

COM2  *) 

VAR 3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

*> 

PROCESSING  DESCRIPTION:  *) 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

*) 

COMMENTS:  *) 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

*) 

CHANGE  CONTROL:  *> 

YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 
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(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  % INCLUDE  DISPCRB  *) 
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(*  %INCLUDE  DISPEMM.  *) 

(**) 

PROCEDURE  DISPEMM(VAR  KEYE :ENTKEY ;VAR  RR:RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

<*  *) 

(*  FUNCTION  *) 

(*  RELEASE  ALL  SPACE  ALLOCATED  TO  AN  ENTITY.  NO  DANGLING  *) 

(*  REFERENCES  TO  THIS  ENTITY  SHOULD  EXIST  IN  AN  NDS  OR  *) 

(*  NODELIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

<*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  THE  ENTITY  TO  BE  DISPOSED.  *) 

(*  OUTPUT  *) 

(*  KEYE  -  SET  TO  NIL.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  CHANGE  CONTROL  *) 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  TO  CALL  'MASDSP'  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  DISPEMM.  *) 
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(*  %INCLUDE  DISPLSM.  *) 

<**> 

PROCEDURE  DISPLSM(VAR  POSITION:LISTPSTN;VAR  LISTREF:LISTPNTR; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  DELETE  SPACE  ALLOCATED  TO  A  SYSTEM  LIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

<*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST  WHOSE  SPACE  IS  TO  *) 

(*  BE  DEALLOCATED.  *) 

(*  OUTPUT  *) 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST  WITH  ZERO  SIZE.  *) 

(*  POSITION  -  POSITION  IS  SET  TO  ZERO  INDICATING  START  OF  *) 

(*  SYSTEM  LIST.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  CALL  MASDSP.  *) 

(* - *) 

<**) 

(*  END  ^INCLUDE  DISPLSM.  *) 
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(*  XINCLUDE  DISPNM.  *) 

(**) 

PROCEDURE  DISPNM(VAR  KEYL:LISTKEY ;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  REMOVE  ALL  ENTITIES  FROM  THE  LIST  AND  FREE  THE  ALLOCATED  *) 

(*  SPACE.  THE  EMPTY  LIST  IS  ALSO  DELETED  AND  REMOVED  FROM  THE  *) 

(*  LIST  OF  LISTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  iNPUT  *) 

(*  KEYL  -  KEY  OF  THE  LIST  WHOSE  ENTITIES  ARE  TO  *) 

(*  BE  REMOVED.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  THE  STACK_OF_LISTS  IS  READ.  FOR  EACH  LIST_OF_LISTS  ON  THE  *) 

(*  STACK_OF_LISTS ,  KEYL  IS  REMOVED  FROM  THE  LIST.  WHEN  ALL  *) 

(*  LISTS  HAVE  BEEN  SEARCHED,  KEYL  IS  DISPOSED.  *) 

(*  *) 

<* - *) 

<**) 

(*  END  XINCLUDE  DISPNM.  *) 
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(*  7.INCLUDE  ELDNM.  *) 

<**) 

PROCEDURE  ELDNM(VAR  KEYL:LISTKEY;VAR  RR :RET_REC)  EXTERNAL; 

(**) 

(* - *)  66 

(*  *)  76 

(*  $  FUNCTION :  *)  1 

(*  CREATE  A  LIST  WITH  ALL  DUPLICATE  ENTITIES  ELIMINATED.  *)  95 

(*  THE  FIRST  REFERENCE  IS  MAINTAINED  AND  ALL  SUBSEQUENT  *) 

(*  ENTITIES  ARE  REMOVED.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYL  I  -  KEY  OF  THE  LIST  WHICH  MAY  CONTAIN  DUPLICATE  *) 

(*  ENTITIES.  THE  LIST  WILL  HAVE  ALL  DUPLICATES  *) 

(*  REMOVED.  *) 

(*  RR  0  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE:  IBM  360/370/43XX  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

<*  EACH  ENTRY  ON  THE  SYSTEM  LIST  IS  READ.  THE  ADB. PROBIT  IS  *) 

(*  SET  ON,  AND  THE  ENTITY  KEY  IS  PLACED  ON  THE  NEW  SYSTEM  LIST.*) 

(*  IF  THE  ADB. PROBIT  IS  ALREADY  SET  ON,  THEN  THE  ENTITY  IS  A  *) 

(*  DUPLICATE  AND  NOT  PLACED  ON  THE  NEW  LIST.  *) 

(*  THE  NEW  LIST  REPLACES  THE  OLD  SYSTEM  LIST  IN  THE  APPL-  *) 

(*  I CATION  7IST.  ALL  PROBITS  ARE  THEN  RESET  TO  'OFF'.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  REVISED:  09/02/86  B.  A.  ULMER  W315  *) 

(*  TO  USE  MAS  INTERNAL  PROCESS  FLAG  (MAPR0B2)  INSTEAD  OF  *) 

(*  MAPROB  (CONFLICT  WITH  DELRUL)  *) 

(*  *) 

(*  REVISED:  04/26/85  E.  D.  SHREVE  W315  *) 

(*  TO  USE  MAS  INTERNAL  PROCESS  FLAG  (MAPROB)  *) 

(*  *) 

(*  REVISED:  02/07/85  E.  D.  SHREVE  W315  *) 

(*  REWRITTEN  TO  PROCESS  MORE  EFFICIENTLY.  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  ELDNM.  *) 
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(*  %INCLUDE  ELMNODM.  *) 

(**) 

PROCEDURE  ELMNODM( CONST  KEYE :ENTKEY ;VAR  ENTDEF: ENTBLOCK; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  RETURN  AN  ENTBLOCK  CORRESPONDING  TO  A  KEY.  *) 

(*  *) 

<*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

<*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  THE  KEY  OF  THE  ENTITY.  *) 

(*  OUTPUT  *) 

(*  ENTDEF  -  THE  CORRESPONDING  ENTBLOCK.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  ELMNODM.  *) 
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(*  %INCLUDE  EXCRBE  *) 

(**) 

PROCEDURE  EXCRBE (CONST  CRB:CRBPNTR;  CONST  P0S1:RDBSI2E; 

CONST  P0S2 :RDBSIZE;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  EXCHANGE  TWO  ENTRIES  IN  THE  CRB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  HOW  IS  THIS  ROUTINE /MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  P0S1  I  POSITION  OF  FIRST  ENTRY  TO  EXCHANGE  *) 

(*  P0S2  I  POSITION  OF  SECOND  ENTRY  TO  EXCHANGE  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =  2  THE  ROUTINE  BLEW  IT  *) 

(*  *> 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR 2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR 3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/ CLOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 
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(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  EXCRBE  *) 
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(*  %INCLUDE  EXPCLSM.  *) 

(**) 

PROCEDURE  EXPCLSM( CONST  LISTIN:LISTPNTR;VAR  LI STOUT : LI STPNTR ; 
VAR  LSTFLG: BOOLEAN;  VAR  RR:RET_REC); EXTERNAL; 

(**) 


(*■ 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 


^FUNCTION: 

EXPAND  LIST  WITH  ALL  OF  ITS  CONSTITUENTS  AND  PLACE  THIS 
EXPANDED  LIST  IN  LI STOUT. 

^DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

LISTIN 

I 

LIST  CONTAINING  ENTITIES  TO  BE 
EXPANDED . 

LISTOUT 

0 

LIST  OF  INCLUSIVE  CONSTITUENTS 

LSTFLG 

I 

FLAG  TO  TELL  IF  FIRST  TIME  THRU 

RR 

0 

FUNCTION  RETURN  CODE. 

=  0  GOOD  RETURN 
>  0  CRITICAL  ERROR 
<  0  WARNING 

$ COMMONS: 

NONE 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360,370,43XX 

^EXECUTION  PROCEDURE: 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
^PROCESSING  DESCRIPTION: 

THIS  ROUTINE  INVOKES  ITSELF  RECURSIVELY  AND  FILLS  LISTOUT 
BY  ADDING  EACH  NEST  OF  CONSTITUENTS  DIRECTLY  AFTER  THE 
PARENT  ENTITY. 

^CHANGE  CONTROL: 

REVISED:  01/10/86  B.  A.  ULMER  W315 

FIX  BUG  DEALING  WITH  PREVIOUS  FIX 

REVISED:  05/21/85  B.  A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

REVISED:  04/26/85  E.D.  SHREVE  W315 

TO  USE  INTERNAL  MAS  PROCESS  FLAG  MAPROB 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 
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(*  *) 

(*  REVISED:  02/18/85  B.A.  ULMER  W315  *) 

(*  IMPLEMENT  THE  CNST  READ  BLOCK  *) 

(*  *) 

(*  CREATED:  06/13/84  D.J.  KERCHNER  W315  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  EXPCLSM.  *) 
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(*  %INCLUDE  EXPCRB  *) 

(**) 

PROCEDURE  EXPCRB(VAR  CRBrCRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  EXPAND  THE  CRB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =  2  THE  ROUTINE  BLEW  IT  *) 

C*  *) 

(*  COMMONS:  *) 

(*  COM!  *) 

VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR 3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

<*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 
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(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  % INCLUDE  EXPCRB  *) 
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(*  %INCLUDE  EXPSUDB  *) 

(**) 

PROCEDURE  EXPSUDB (VAR  ENTBPNTR : ENTPNTR ; CONST  OLDSIZE.-ENTSIZE; 


CONST  NEWSIZE :ENTSIZE;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  EXPAND  A  SYSTEM  UDB  (USER  DATA  BLOCK)  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  OLDSIZE  I  SIZE  OF  THE  AREA  TO  BE  EXPANDED  *) 

(*  NEWSIZE  I  SIZE  OF  THE  OUTPUT  DATA  AREA  FOR  THE  *) 

(*  EXPANDED  ENTBLOCK  *) 

(*  ENTBPNTR  I  POINTER  TO  THE  ENTBLOCK  TO  BE  EXPANDED  *) 

(*  ENTBPNTR  0  POINTER  TO  THE  EXPANDED  ENTBLOCK  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <  0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  EXPAND  THE  USER  DATA  BLOCK  (UDB)  *) 

(*  *) 

(*  ^COMMENTS :  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  07/09/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGE  TO  MAKE  THIS  ROUTINE  MORE  VAX  COMPATIABLE  -  TAKE  OUT  THE*) 
(*  MIN  FUNCTION  *) 

(*  *) 

(*  REVISED:  12/10/84  J.  JOHNSON  *) 

(*  TO  CALL  MASDSP  *) 

(*  *) 
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(*  %INCLUDE  EXPULSM.  *) 

(**) 

PROCEDURE  EXPULSM( CONST  LISTIN:LISTPNTR;  VAR  LISTOUT :LISTPNTR; 

VAR  LSTFLG: BOOLEAN;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  PLACE  THE  EXPANDED  LIST  WITH  ALI  OF  ITS  USERS  IN  LISTOUT.  *) 

<*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  LISTIN  I  LIST  TO  BE  EXPANDED.  *) 

(*  LISTOUT  0  EXPANDED  LIST.  *) 

(*  LSTFLG  I  FLAG  TO  TELL  IF  FIRST  TIME  THRU  *) 

(*  RR  0  FUNCTION  RETURN  RECORD.  *) 

(*  =0  GOOD  RETURN  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360,370,43XX  *) 

(*  *) 

(*  $ EXE CUT I ON  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  INVOKES  ITSELF  RECURSIVELY  AND  FILLS  LISTOUT  *) 

(*  BY  ADDING  EACH  NEST  OF  USERS  DIRECTLY  AFTER  ITS  USER  *) 

(*  REFERENCE.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  01/10/86  B.  A.  ULMER  W315  *) 

(*  FIX  BUG  DEALING  WITH  PREVIOUS  FIX  *) 

(*  *) 

(*  REVISED:  05/21/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  04/26/85  E.  D.  SHREVE  W315  *) 

(*  TO  USE  INTERNAL  MAS  PROCESS  FLAG  MAPROB  *) 

(*  *) 
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(*  ORIGINATED:  06/13/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  EXPULSM.  *) 
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(*  ^INCLUDE  EXPULSMI .*) 

(**) 

PROCEDURE  EXPULSMI (CONST  ENTITY :ENTKEY;  VAR  LISTOUT:LISTPNTR; 


VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - - - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  PLACE  THE  EXPANDED  LIST  WITH  ALL  OF  ITS  USERS  IN  LISTOUT.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  LISTIN  I  LIST  TO  BE  EXPANDED.  *) 

(*  LISTOUT  0  EXPANDED  LIST.  *) 

(*  LSTFLG  I  FLAG  TO  TELL  IF  FIRST  TIME  THRU  *) 

(*  RR  0  FUNCTION  RETURN  RECORD.  *) 

(*  =0  GOOD  RETURN  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  NONE  *) 

(*  *) 

(*  $ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360,370,43XX  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THIS  ROUTINE  INVOKES  ITSELF  RECURSIVELY  AND  FILLS  LISTOUT  *) 

(*  BY  ADDING  EACH  NEST  OF  USERS  DIRECTLY  AFTER  ITS  USER  *) 

(*  REFERENCE.  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  CHANGED:  11/19/86  K.  M.  ROSS  *) 

(*  REASON:  INCORRECT  ORDER  ON  OUTPUT  *) 

(*  CHANGE:  CHECK  IF  FIRST  ELEMENT  IN  LIST  ALREADY  *) 

(*  PROCESSED  I.E.  DELETED  FROM  USER  LIST  *) 

(*  *) 

(*  CHANGED:  11/10/86  K.  M.  ROSS  *) 

(*  REASON:  INCORRECT  ORDER  ON  OUTPUT  *) 

(*  CHANGE:  CHECK  LISTIN  LENGTH  AFTER  LOOP  TO  RE  *) 

(*  MOVE  USERS  ALREADY  PROCESSED  *) 

(*  *) 
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(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

(* 


CHANGED: 
REASON  : 
CHANGE  : 


11/06/86  K  M  ROSS 

TOO  SLOW 

REDESIGN  USER  LIST  CREATION,  BY  BREADTH 
WISE  INSTEAD  OF  LENGTHWISE 


REVISED:  01/10/86  B.  A.  ULMER 

FIX  BUG  DEALING  WITH  PREVIOUS  FIX 


W315 


REVISED:  05/21/85  B.  A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 


REVISED:  04/26/85  E.  D.  SHREVE  W315 

TO  USE  INTERNAL  MAS  PROCESS  FLAG  MAPROB 


ORIGINATED:  06/13/84  D.  J.  KERCHNER  W315 


(**) 

(*  END  %INCLUDE  EXPULSMI .  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  FDSCH.  *) 

(**) 

PROCEDURE  FDSCH(CONST  SCH_ROOT:ENTKEY; CONST  KIND:ORD_KIND; 

VAR  SCH_PTR:ENTKEY;VAR  POSITION:LISTPSTN; 

VAR  RR:RET_REC) ;  EXTERNAL; 

<**) 

(* - 

(* 

(*  FUNCTION 

(*  FIND  A  SCHEMA_INSTANCE_COLLECTOR  OR  SCHEMA_CLASS  ENTITY  ON 

(*  THE  SPECIFIED  SCHEMA_ROOT ' S  CONSTITUENT  LIST. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

( *  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  NDSREM 

(*  KIND 

(* 

(* 

<* 

(*  OUTPUT 

(*  SCH_PTR 

<* 

(*  POSITION 

(* 

(* 

(* 

(*  RR 

(* 

(* - 

<**) 

(*  END  ^INCLUDE  FDSCH.  *) 


-  THE  NETWORK  TO  BE  SEARCHED. 

-  VALUE  TO  BE  SEARCHED  FOR  IN  THE  ENTBLOCK  OF 
THE  CLASS  OR  INSTANCE  COLLECTOR  NODE.  THIS 
IS  THE  KIND  OF  THE  COLLECTED  INSTANCES  FOR 
INSTANCE  COLLECTORS. 

-  POINTER  TO  THE  FOUND  ENTITY  WITH  SPECIFIED 
DATA. KIND. 

-  POSITION  IN  THE  CONSTITUENT  LIST  OF  THE  LAST 
SCHEMA  CLASS  OR  INSTANCE  COLLECTOR  ENTITY 
WITH  HEADER. KIND  LESS  THAN  OR  EQUAL  TO  THE 
SPECIFIED  KIND. 

-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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(*  ^INCLUDE  FNDCRBE  *) 

(**) 

PROCEDURE  FNDCRBE(CONST  CRB:CRBPNTR;  CONST  EKEY :ENTKEY ; 
VAR  CRBPOS:RDBSIZE;VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

<*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  FIND  A  SPECIFIC  ENTRY  IN  THE  CRB  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS  *) 

(*  EKEY  I  ENTITY  KEY  WHICH  IS  TO  BE  FOUND  IN  THE  CRB  *) 

(*  CRBPOS  0  POSITION  IN  CRB  WHERE  EKEY  WAS  FOUND  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  COMMONS:  *) 

(*  C0M1  *) 

(*  VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  VAR2  I  VAR2  MUST  BE  SPECIFIED  *) 

(*  COM2  *) 

(*  VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

<*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *> 
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(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  FNDCRBE  *) 
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(*  ^INCLUDE  FNDSKIND  *) 

(**) 

PROCEDURE  FNDSKIND (CONST  SCHKEY :ENTKEY ;VAR  KINDARY :KIND_ARRAY ; 

VAR  NUMKIND: INTEGER; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *> 

(*  FUNCTION  *) 

(*  BUILD  AN  ARRAY  OF  KIND  VALUE  COLLECTED  BY  A  CLASS  OR  *) 

(*  INSTANCE  COLLECTOR  IN  THE  SCHEMA.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  SCHKEY  -  KEY  OF  THE  CLASS  OR  INSTANCE  COLLECTOR  NODE.  *) 

(*  KINDARY  -  ARRAY  TO  STORE  THE  COLLECTED  KINDS.  *) 

(*  OUTPUT  *) 

(*  NUMKIND  -  NUMBER  OF  KIND  VALUES  PUT  INTO  KINDARY.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

<*  *) 

(*  METHOD  *) 

(*  1.  IF  SCHKEY  IS  AN  INSTANCE  COLLECTOR,  THE  KIND  VALUE  FROM  *) 

(*  THE  1ST  CONSTITUENT’S  ADB  IS  PUT  INTO  KINDARY.  *) 

(*  2.  IF  SCHKEY  IS  A  CLASS  COLLECTOR,  ALL  INCLUSIVE  INSTANCE  *) 

(*  COLLECTORS  ARE  FOUND  AND  THEIR  KINDS  PUT  IN  KINDARY.  *) 

(*  THIS  IS  ACCOMPLISHED  BY  RECURSIVE  CALLS  TO  FNDSKIND.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  FNDSKIND  *) 
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(*  7.INCLUDE  GTCRBE  *) 

(**) 

PROCEDURE  GTCRBE (CONST  CRB:CRBPNTR;  VAR  CRBPOS:  RDBSI2E ; 
CONST  EKEY:ENTKEY ;  VAR  POS :LISTPSTN;  VAR  DIR:LISTDIR; 


VAR  RR:RET 

_REC) 

; EXTERNAL; 

(**) 

_ 

-*) 

(* 

*) 

(* 

AUTHOR :  B 

.  A. 

ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(* 

VERSION:  XXXX 

REVISED:  YY/MM/DD  CC 

*) 

(* 

*) 

(* 

FUNCTION: 

*) 

(* 

GET  AN 

ENTRY 

'  IN  THE  CRB 

*) 

(* 

*) 

(* 

ENVIRONMENT: 

*) 

(* 

IBM  PASCAL  LANGUAGE 

*) 

<* 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

*) 

(* 

*) 

(* 

EXECUTION 

PROCEDURE: 

*) 

(* 

HOW  IS 

THIS 

ROUTINE /MODULE  TO  BE  EXECUTED. 

*) 

(* 

*) 

(* 

DESCRIPTION  OF 

ARGUMENTS : 

*) 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

CRB 

I/O 

CONSTITUENT  READ  BLOCK  ADDRESS 

*) 

<* 

CRBPOS 

I 

POSITION  IN  CRB  OF  ENTRY  REQUESTED 

*) 

(* 

EKEY 

0 

KEY  OF  ENTITY  CONTAINING  THE  CONSTITUENT  LIST 

*) 

(* 

POS 

0 

LIST  POSITION  SETTING 

*) 

(* 

DIR 

0 

DIRECTION  TO  READ  OF  LIST  (FORWARD  OR  REVERSE) 

*) 

(* 

RR 

0 

ERROR  CONDITION  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

=  1  YOU  BLEW  IT 

*> 

(* 

=  2  THE  ROUTINE  BLEW  IT 

*> 

(* 

*) 

<* 

COMMONS : 

*) 

(* 

COM1 

*) 

(* 

VAR1 

I 

VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 

*) 

(* 

MUST  BE  PROVIDED 

*) 

(* 

VAR  2 

I 

VAR2  MUST  BE  SPECIFIED 

*) 

(* 

COM2 

*) 

(* 

VAR  3 

I 

CHARACTER  DATA  MUST  BE  SPECIFIED 

*) 

<* 

*> 

(* 

PROCESSING 

1  DESCRIPTION: 

*) 

<* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 

*) 

(* 

FILES 

NEED 

TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

*) 

(* 

*) 

(* 

COMMENTS: 

*) 
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(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 


(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  GTCRBE  *) 


> 
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(*  %INCLUDE  INDLSM  *) 

(**) 

PROCEDURE  INDLSM(CONST  KEYE :ENTKEY ; CONST  LISTREF:LISTPNTR; 

VAR  POSITION: LI STPSTN; VAR  I NLST : BOOLEAN; VAR  RR:RET_REC) ; 

EXTERNAL; 

(**) 

(* - - *) 

<*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  LOCATE  AN  ENTITY  IN  A  SYSTEM  LIST.  *) 

<*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  TO  BE  LOCATED.  *) 

(*  LISTREF  I  LIST  TO  BE  SEARCHED.  *) 

(*  POSITION  0  POSITION  OF  ENTITY  IN  SYSTEM  LIST.  *) 

(*  I NLST  0  TRUE  IF  AN  ENTITY  IN  THE  LIST  CORRESPONDS  *) 

(*  TO  KEYE  ELSE  FALSE.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  OF  KEYL  TO  VAR.  *) 

(*  *) 

<* - *> 

(**) 

(*  END  XINCLUDE  INDLSM  *) 
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% INCLUDE  PCMGT 
DEF 

iPCMGR:  T_$PCMGR; 

VALUE 

$PCMGR .SIZE  :=32768 ; 

$PCMGR . PTR  :=NIL; 

$PCMGR . OVERFLOW  :=NIL; 

$PCMGR . INIT . SIZE : =32768 ; 

$PCMGR .MAP  :=0; 

(* 

(*  ADDED  A  VALUE  STATEMENT  FOR  THE  OVERFLOW  BLOCK  USAGE  FLAG 

(* 


*) 

*) 

*) 
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(*  %INCLUDE  INNM.  *) 

(**) 

FUNCTION  INNM(CONST  KEYE:ENTKEY; CONST  KEYL:LISTKEY; 

VAR  RR:RET_REC) : BOOLEAN;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  INDICATE  WHETHER  A  LIST  REFERENCES  AN  ENTITY.  *) 

<*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  TO  LOOK  FOR  IN  THE  LIST.  *) 

(*  KEYL  -  THE  KEY  OF  THE  LIST  TO  EXAMINE.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  FUNCTION  VALUE  -  TRUE  IF  ENTITY  IS  IN  LIST  ELSE  FALSE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  INNM.  *) 
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(*  %INCLUDE  INTLSM.  *) 

(**) 

PROCEDURE  INTLSM(CONST  LIST1 :LISTPNTR ; CONST  LIST2 :LISTPNTR; 
VAR  POSITION: LI STPSTN; VAR  LI STOUT : LI STPNTR ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 


(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  A  LIST  WHICH  IS  THE  INTERSECTION  OF  TWO  LISTS.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  LIST1  I  LIST  TO  BE  INTERSECTED  WITH  THE  SECOND  *) 

(*  LIST2  I  LIST  TO  BE  INTERSECTED  WITH  THE  FIRST  *) 

(*  POSITION  I  INTEGER  INDICATING  THE  POSITION  ON  *) 

(*  LISTOUT  *) 

(*  LISTOUT  0  LIST  CONTAINING  COMMON  ENTITIES  TO  THE  *) 

(*  INPUT  LISTS  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

<*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  FIND  THOSE  ENTITIES  WHICH  ARE  COMMON  TO  BOTH  INPUT  LISTS  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

<*  *) 

(*  REVISED:  07/01/85  B.  A.  ULMER  FRMI  *) 

(*  ELIMINATE  THE  MIN  FUNCTION  TO  IMPROVE  COMPATABILITY  WITH  VAX  *) 

(*  *) 

(*  REVISED:  02/22/85  B.  A.  ULMER  FRMI  *) 

(*  FIXED  EMPTY  LIST  ELEMENT  PROBLEM  *) 
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(*  *) 

(*  REVISED:  12/24/85  B.  A.  ULMER  FRMI  *) 

(*  ADDED  SYSTEM  LIST  CURRENT  LENGTH  INDICATOR  —  LSTLNM  *) 

(*  *) 
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(*  %INCLUDE  LSTLNM.  *) 

(**) 

FUNCTION  LSTLNM( CONST  LISTREF:LISTPNTR;VAR  RR:RET_REC) :LISTSIZE; 
EXTERNAL; 

(**) 

(* - - *) 

(*  *) 

(*  FUNCTION  *) 

(*  RETURN  THE  NUMBER  OF  NON-VACANT  ENTITIES  IN  A  SYSTEM  LIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

<*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  FUNCTION  VALUE  -  NUMBER  OF  ENTITIES  IN  THE  SYSTEM  LIST.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  LSTLNM.  *) 
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(*  %INCLUDE  LSTMXLNM.  *) 
(**) 


FUNCTION  LSTMXLNM (CONST  LISTREF :LISTPNTR;VAR  RR:RET_REC) rLISTSIZE; 
EXTERNAL? 

(**) 


(*-- 

— 

— *) 

(* 

*) 

(* 

FUNCTION 

*) 

(* 

RETURN  THE  NUMBER  OF  ENTRIES 

ALLOCATED  TO  A  SYSTEM  LIST. 

*) 

(* 

*) 

(* 

LANGUAGE 

*) 

(* 

PASCAL. 

*) 

(* 

*) 

(* 

PACKAGE 

*) 

(* 

LIST  PACKAGE. 

*) 

(* 

*) 

(* 

ARGUMENTS 

*) 

(* 

INPUT 

*) 

(* 

LISTREF  -  POINTER  TO  A 

SYSTEM  LIST. 

*> 

(* 

OUTPUT 

*) 

(* 

FUNCTION  VALUE  -  SIZE  OF 

SYSTEM  LIST. 

*) 

(* 

RR  -  THE  FUNCTION 

RETURN  RECORD. 

*) 

(* 

*> 

(*— 

— *) 

(**) 

(*  END  %INCLUDE  LSTMXLNM.  *) 
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(*  %INCLUDE  MABRST  *) 

(**) 

PROCEDURE  MABRST(VAR  RC :EXT_RET_CODE) ; 

SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  RESET  THE  PROCESS  AND  APPLICATION  FLAGS  FOR  ALL  ENTITIES  IN  *) 

(*  THE  WORKING  FORM  MODEL.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NDSREM  *) 

(*  VAR1  I  VAR’-.  NAME  MUST  BE  FILLED,  CHARACTER  DATA  *) 

(*  MUST  BE  PROVIDED  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  DDNAMES  USED  WITH  STANDARD  FILES:  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/07/87  K.  M.  ROSS  DBMA  *) 

(*  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

<*  *) 

(*END - *) 

(*  END  XINCLUDE  MABRST  *) 
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(*  ^INCLUDE  MACPDT  *) 

(**) 

PROCEDURE  MACPDTCCONST  KEY1 : ANYKEY ;  CONST  FLGNAME : NAMTYP ;  CONST 


FLGVAL: INTEGER;  VAR  RC : EXT_RET__CODE )  ; SUBPROGRAM ; 

(**) 

(* - - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  UPDATE  A  SPECIFIED  APPLICATION  ACCESSIBLE  FLAG  VALUE  *) 

(*  FOR  THE  CONSTITUENTS  OF  AN  ENTITY  OR  A  LIST  OF  ENTITIES  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  WHOSE  *) 

(*  SPECIFIED  FLAG  VALUE  IS  TO  BE  UPDATED  *) 

(*  FLGNAME  I  FLAG  NAME  (STRING(6))  *) 

(*  FLGVAL  I  VALUE  TO  BE  USED  WHEN  UPDATING  THE  FLAG  *) 

(*  =1  TRUE  *) 

(*  =0  FALSE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  DETERMINE  WHICH  OF  THE  APPLICATION  ACCESSIBLE  FLAGS  IS  TO  BE*) 

(*  UPDATED  AND  THEN  UPDATE  IT  WITH  THE  INPUT  VALUE  *) 

<*  *) 

(*  ^COMMENTS:  *) 

(*  *> 

(*  ^CHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  03/07/87  K.  M.  ROSS  DBMA  *) 

(*  *) 

(* - *) 

(*  END  %INCLUDE  MACPDT  *) 
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(*  '/.INCLUDE  MAEA.  *) 

(**) 

PROCEDURE  MAEA( CONST  KEY1 : ANYKEY ; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 
%PAGE 


(**) 

(* - 

(* 

(*  $FUNCTION: 

(*  ACTIVATE  AN  ENTITY. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  KEY1  I  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES  TO 

(*  BE  ACTIVATED 

(*  RC  0  EXTERNAL  RETURN  CODE 

(*  =  0  OK 

(*  >  0  CRITICAL  ERROR 

(*  <0  WARNING 

(* 

(*  ^COMMONS: 

(* 

(*  ^ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

<* 

(*  ^EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  FOR  EACH  KEY,  AS  AN  ENTITY  OR  A  MEMBER  OF  A  LIST 

(*  RESET  THE  DELETE  FLAG 

(* 

(*  $COMMENTS : 

(* 

(*  $ CHANGE  CONTROL: 

(* 

(*  REVISED:  04/30/86  B.  A.  ULMER  FRMI 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

(*  TO  USER  RECOGNIZEABLE  FORM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI 

(*  ADD  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DET  JGGING 
(*  PURPOSES 

(* 

(*  REVISED:  08/14/86  K.  M.  ROSS  DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ADDED  A  CHECK  FOR  NIL  POINTER  ON  KEY1  *) 

(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  07/25/84  D.  J.  KERCHNER  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(**) 

(*  END  %INCLUDE  MAEA.  *) 

(**) 
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(*  %INCLUDE  MAE A I  *) 

(**) 

PROCEDURE  MAEAI (CONST  KEY1 : ANYKEY; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 


(**) 

<*— 

— 

-*) 

<* 

*) 

(* 

^FUNCTION: 

*) 

(* 

ACTIVATE  AN  ENTITY  OR  A  LIST  OF  ENTITIES 

AND  THEIR 

*) 

<* 

INCLUSIVE  CONSTITUENTS. 

*) 

(* 

*> 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

-  -  — - - 

*) 

(* 

KEY1  I  KEY  OF  THE  ENTITY  OR  LIST 

OF  ENTITIES  TO 

*) 

(* 

BE  ACTIVATED. 

*) 

(* 

RC  0  THE  FUNCTION  RETURN  CODE. 

*) 

(* 

=  0  GOOD  RETURN 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

$ COMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

^ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360,370,43XX 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

<* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

IF  KEY1  IS  AN  ENTITY,  THEN  THAT  ENTITY  AND  ITS  INCLUSIVE 

*) 

(* 

CONSTITUENT  LIST  WILL  BE  ACTIVATED. 

*) 

(* 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  INCLUSIVE  CONSTITUENT  LISTS 

*) 

(* 

OF  EACH  ENTITY  WILL  BE  ACTIVATED. 

*) 

<* 

NOW  USES  THE  INTERNAL  MAS  PROCESS  FLAG  (MAPROB)  IN  THE 

*) 

(* 

T_ELEMENT . I IT . 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

W315 

*) 

(* 

ADDED  A  CALL  CNVOSP  TO  CONVERT 

AN  "OUT  OF  MEMORY" 

*) 

(* 

CONDITION  TO  USER  RECOGMIZEABLE 

FORM 

*) 

(* 

*) 

<* 

REVISED:  07/11/85  B.  A.  ULMER 

W315 

*) 

(* 

ADD  NEW  PARAMETER  TO  CNVRR  FOR  ! 

ERROR  HANDLING  AND 

*) 

(* 

DEBUGGING  PURPOSES 

*) 
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(*  REVISED:  04/26/85  E.  D.  SHREVE  W315  *) 
(*  TO  USE  THE  INTERNAL  MAS  PROCESS  FLAG  AND  TO  CALL  *) 
(*  EXPCLST  INSTEAD  OF  EXPALST  *) 
(*  *) 
(*  REVISED:  02/18/85  B.  A.  ULMER  W315  *) 
(*  STRUCTURE  CHANGE  FOR  THE  CNST.  READ  BLOCK.  *) 
(*  *) 
(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 
(*  ADDED  NIL  POINTER  CHECK  FOR  KEY1 .  *) 
(*  *) 
(*  ORIGINATED:  07/26/84  D.  J.  KERCHNER  W315  *) 
(* - 


(**) 

(*  END  %INCLUDE  MAEAI  *) 
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(*  %INCLUDE  MAEAV  *) 
(**) 


PROCEDURE  MAEAV( CONST  KEY1 :ENTKEY;VAR  IAVAL: INTEGER ; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 


<*■ 

<* 

(* 
(  * 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 


$ FUNCTION: 

FIND  THE  PRESENT  VALUE  OF  THE  ACTIVATION  SETTING  FOR  AN 
ENTITY. 

^DESCRIPTION  OF  ARGUMENTS: 

NAME 

KEY1 

IVAL 


RC 


^COMMONS : 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

THE  ACTIVITY  STATUS  OF  THE  ENTITY  IS  TO  BE  CHECKED. 

IF  THE  ENTITY  IS  ACTIVE  (NOT  MARKED  FOR  DELETE),  THEN 
THE  ACTIVITY  STATUS  IS  TRUE  AND  AN  INTEGER  FLAG  VALUE 
OF  (1)  WILL  BE  RETURNED. 

IF  THE  ENTITY  IS  INACTIVE  (MARKED  FOR  DELETE),  THEN  THE 
ACTIVITY  STATUS  IS  FALSE  AND  AN  INTEGER  FLAG  VALUE  OF 
(0)  WILL  BE  RETURNED. 

$ COMMENTS : 


I/O  DESCRIPTION 

I  KEY  OF  THE  ENTITY  WHOSE  ACTIVATION 
SETTING  IS  TO  BE  CHECKED 

0  VALUE  OF  THE  SWITCH 
=  1  TRUE 
=  0  FALSE 

0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY"  CONDITION  *) 
(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  07/27/85  D.  J.  KERCHNER  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(**) 

(*  END  %INCLUDE  MAEAV  *) 

(**) 
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(*  %INCLUDE  MAEC  *) 

(**) 

PROCEDURE  MAEC (CONST  KEY1 : ANYKEY ; VAR  KEY2 :LISTKEY; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

%PAGE 

(* - - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  AN  APPLICATIONS  LIST  OF  CONSTITUENT  ENTITIES.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  KEY  OF  AN  ENTITY  OR  A  LIST.  *) 

(*  KEY2  0  RETURNED  KEY  OF  THE  APPLICATION  LIST.  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  KEY2  IS  CREATED  (EMPTY  LIST).  *) 

(*  IF  KEY1  IS  AN  ENTITY,  THEN  THE  CONSTITUENT  LIST  OF  KEY1  *) 

(*  WILL  BE  COPIED  INTO  KEY2.  *) 

(*  IF  KEY1  IS  A  LIST  KEY,  THEN  THE  CONSTITUENT  LISTS  OF  EACH  *) 

(*  ENTITY  WILL  BE  COPIED  INTO  KEY2 .  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

<*  *) 
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(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

<*  *) 

(*  REVISED:  02/18/85  B.  A.  ULMER  W315  *) 

(*  CHANGED  THE  STRUCUTRE  OF  THE  INTERNAL  ITEM  FOR  IMPLEMENTATION  *) 

(*  OF  THE  CRB  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 

(*  ADDED  A  CHECK  FOR  NIL  POINTER  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  06/08/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

<* - *) 

%PAGE  * ) 

(*  END  7.INCLUDE  MAEC  *) 
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(*  %INCLUDE  MAECI  *) 

<**) 

PROCEDURE  MAECI (CONST  KEY1 : ANYKEY; VAR  KEY2 :LISTKEY ; 
VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 


(**) 

(*— 

— 

-*) 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

CREATE  AN  APPLICATION  LIST  OF  INCLUSIVE  CONSTITUENT 

*) 

(* 

ENTITIES. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

n 

ii 

it 

ii 

ii 

ii 

n 

ii 

ii 

ii 

n 

n 

ii 

ii 

ii 

ii 

ii 

ii 

*) 

(* 

KEY1  I  KEY  OF  AN  ENTITY  OR  A  LIST. 

*) 

(* 

KEY2  0  KEY  OF  THE  CREATED  APPLICATION  LIST. 

*) 

(* 

RC  0  FUNCTION  RETURN  CODE. 

*) 

<* 

=  0  GOOD  RETURN 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

<* 

*) 

(* 

$ COMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX 

*) 

(* 

*) 

<* 

^EXECUTION  PROCEDURE: 

*) 

<* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

KEY2  IS  CREATED  (EMPTY  LIST). 

*) 

(* 

IF  KEY1  IS  AN  ENTITY,  THEN  THE  INCLUSIVE  CONSTITUENT  LIST 

*) 

(* 

OF  KEY1  WILL  BE  COPIED  INTO  KEY2 . 

*) 

(* 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  INCLUSIVE  CONSTITUENT  LISTS 

*) 

(* 

OF  EACH  ENTITY  WILL  BE  COPIED  INTO  KEY2 . 

*) 

(* 

IT  IS  ASSUMED  THAT  THE  MAPROB  FLAG  IS  INITIALLY  SET  TO 

*) 

(* 

FALSE.  AFTER  PROCESSING,  MAPROB  FLAG  IS  RESET. 

*) 

<* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

<* 

REVISED:  05/01/86  B.A.  ULMER 

W315 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN 

"OUT  OF  MEMORY*) 

(* 

CONDITION  TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED:  01/20/85  B.A.  ULMER 

W315 

*) 
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(*  FIX  BUG  DEALING  WITH  PREVIOUS  FIX  *) 

(*  *) 

(*  REVISED:  11/04/85  B.A.  ULMER  W315  *) 

(*  NOT  ALLOW  ENITIES  THAT  ARE  ON  THE  APPLICATION  INPUT*) 

(*  LIST  TO  BE  ON  THE  APPLICATION  OUTPUT  LIST  (FIX  THE  *) 

(*  INCONSISTENCY  IN  THE  PROCESSING)  *) 

(*  *) 

(*  REVISED:  07/11/85  B.A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  *) 

(*  AND  DEBUGGING  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  04/29/85  E.D.  SHREVE  W315  *) 

(*  TO  USE  THE  INTERNAL  MAPROB  FLAG  *) 

(*  *) 

(*  REVISED:  02/18/85  B.A.  ULMER  W315  *) 

(*  IMPLEMENT  CRB  STRUCTURE  CHANGE  *) 

(*  *) 

(*  REVISED:  08/14/86  K.M.  ROSS  W315  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  07/26/84  D.J.  KERCHNER  W315  *) 

(* - *) 


<**) 

<,*  END  %  INCLUDE  MAdoj.  *) 
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(*  %INCLUDE  MAECIK  *) 

(**) 

PROCEDURE  MAECIK(CONST  KEY1: ANYKEY; CONST  ENTKIND : ORD_KIND ; 

VAR  KEY2 :LISTKEY;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(*  — 

-*) 

(* 

*) 

(* 

i FUNCTION: 

*) 

(* 

CREATE  A  LIST  OF  INCLUSIVE  CONSTITUENTS  BY  KIND. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

ti 

ii 

n 

ii 

ii 

n 

n 

n 

ii 

ii 

n 

n 

n 

n 

n 

n 

ii 

ii 

*) 

(* 

KEY1  I  THE  KEY  OF  AN  ENTITY  OR  A  LIST  01  ENTITIES 

*) 

(* 

WHOSE  INCLUSIVE  CONSTITUENTS  ARE  TO  BE 

*) 

(* 

SEARCHED  FOR  THE  SPECIFIED  KIND. 

*) 

(* 

KIND  I  THE  KIND  CODE  OF  AN  ENTITY  OR  AN  ENTITY 

*) 

(* 

CLASS . 

*) 

<* 

KEY2  0  THE  KEY  OF  THE  LIST  WHICH  WILL  CONTAIN  ALL 

*) 

(* 

ENTITIES  OF  THE  SPECIFIED  KIND  FOUND  WITHIN 

*) 

(* 

THE  INCLUSIVE  CONSTITUENTS  OF  KEY1 . 

*) 

(* 

RC  0  THE  FUNCTION  RETURN  CODE. 

*) 

(* 

*  0  GOOD  RETURN 

*) 

9 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

^COMMONS : 

*) 

(* 

NONE 

*) 

(* 

*) 

<* 

^ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

<* 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX 

*> 

(* 

*> 

(* 

$ EXECUTION  PROCEDURE: 

*) 

<* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

A  NEW  LIST  IS  CREATED  TO  CONTAIN  THE  INCLUSIVE  CONSTITUENTS 

.*> 

(* 

OP.  LIST  MEMBERS.  FOR  EACH  LIST  MEMBER  WHOSE  KIND  MATCHES 

*) 

(* 

THE  GIVEN  KIND,  THAT  MEMBER  IS  ADDED  TO  THE  OUTPUT  LIST 

*) 

(* 

POINTED  TO  BY  KEY2. 

*) 

(* 

*> 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86  B.A.  ULMER  W315 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  MEMORY*) 

(* 

CONDITION  TO  USER  RECOGNIZEABLE  FORM 

*) 

• 
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(*  REVISED:  07/11/85  B.A.  ULMER  W315 


v 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*— 

(**) 


ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING 
AND  DEBUGGING  PURPOSES 

REVISED:  05/15/85  B.A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 
REVISED:  04/29/85  E.D.  SHREVE  W315 

TO  USE  INTERNAL  MAS  PROCESS  FLAG  (MAPROB) 
REVISED:  02/18/85  B.A.  ULMER  W315 

TO  IMPLEMENT  NEW  CRB  STRUCTURE 
REVISED:  09/11/84  R.  A.  MCCLUSKEY  W315 

CHANGED  PROCESSING  OF  SYSUSE  FLAG.  DROPPED 
ROUTINE  EXPCLSTK  TO  USE  EXPCLST  INSTEAD. 

REVISED:  08/14/86  K.  M.  ROSS  W315 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 
ORIGINATED:  08/20/84  R . A .  MCCLUSKEY  W315 


(*  END  %INCLUDE  MAECIK  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 
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(*  ^INCLUDE  MAECMP  *) 

(**) 

.  PROCEDURE  MAECMP(CONST  KEY1 :ENTKEY ;VAR  KEY2  rLISTKEY; 
VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - 

(* 

(* 

(* 

(* 

(* 

(* 


^FUNCTION: 

GIVE?1  AN  ENTITY  DETERMINE  WHICH  OF  ITS  CONSTITUENTS  IT 
COMPRESSES  WITH 

^DESCRIPTION  OF  ARGUMENTS: 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 


<* 

c* 

(* 

NAME 

I/O  DESCRIPTION 

*) 

*) 

*) 

KEY1 

I  USER  ENTITY  WHOSE  COMPRESSIBILITY  IS 

c* 

DETERMINED  BY  THE  CONSTITUENT  ENTITY 

*) 

c* 

KEY2 

I  CONSTITUENT  ENTITY  BEING  COMPRESSED 

*) 

(* 

RC 

0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

<  0  WARNING 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

<* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM 

PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

$EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS 

SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

*) 

(* 

^COMMENTS: 

*) 

<* 

*) 

<* 

$ CHANGE  CONTROL: 

*) 

(* 

*) 
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(*  %INCLUDE  MAECQY  *) 

(**) 

PROCEDURE  MAECQY(CONST  KEY1:ENTKEY; CONST  KEY2 :ENTKEY;VAR  CMPFLG : 


INTEGER ; VAR  RC:EXT_RET_CODE) -SUBPROGRAM; 

(**) 

<* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  GIVEN  AN  ENTITY  AND  ITS  USER  DETERMINE  IF  THE  USER  SHOULD  BE  *) 

(*  COMPRESSED  WITH  THE  ENTITY  WHEN  THE  ENTITY  IS  COMPRESSED  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  USER  ENTITY  WHOSE  COMPRESSIBILITY  IS  *) 

(*  DETERMINED  BY  THE  CONSTITUENT  ENTITY  *) 

(*  KEY2  I  CONSTITUENT  ENTITY  BEING  COMPRESSED  *) 

(*  CMPFLG  0  FLAG  WHICH  TELLS  IF  THE  USER  IS  *) 

(*  COMPRESSED  WITH  THE  CONSTITUENT  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <  0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *)  1 
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(*  %INCLUDE  MAECR  *) 

<**) 

PROCEDURE  MAECR(VAR  ENTDEF:ENTBLOCK; CONST  KEYC : ANYKEY ; 

VAR  KE YE : ENTKE Y ; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  AN  ENTITY.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTDEF  I  APPLICATION  DATA  DEFINING  THE  ENTITY  TO  *) 

(*  BE  CREATED  *) 

(*  KEYC  I  CONSTITUENT  OR  LIST  OF  CONSTITUENTS  TO  *) 

(*  BE  CONNECTED  TO  THE  ENTITY  *) 

(*  KEYE  0  KEY  OF  CREATES  ENTITY  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

<*  *) 

(*  $COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

<*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

<*  REVISED:  10/11/84  D.  J.  KERCHNER  FRMI  *) 
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(*  UPDATE  DOCUMENTATION  *) 
(*  *) 
(*  REVISED:  10/04/84  E.  D.  SHREVE  FRMI  *) 
(*  INPUT  PARAMETER  ENTDEF  CHANGED  TO  VAR  FROM  CONST  FOR  COMPATAB-  *) 
(*  ABILITY  WITH  THE  DEC  VAC  SYSTEM  *) 
(*  *) 
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(*  ^INCLUDE  MAECRN  *) 

(**) 

PROCEDURE  MAECRN(VAR  ENTDEF : ENTBLOCK ; CONST  KEYC : ANYKEY ; 

VAR  KEYE :ENTKEY; VAR  NUM: INTEGER ; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 


(**) 

(* - *) 

(*  $ FUNCTION:  *) 

(*  CREATE  AN  ENTITY  WITH  A  CONSTITUENT  LIST  OF  A  GIVEN  SIZE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTDEF  I  APPLICATION  DATA  DEFINING  THE  ENTITY  TO  *) 

(*  BE  CREATED  *) 

(*  KEYC  I  CONSTITUENT  OR  LIST  OF  CONSTITUENTS  TO  *) 

(*  BE  CONNECTED  TO  THE  ENTITY  *) 

(*  KEYE  0  KEY  OF  CREATED  ENTITY  *) 

(*  NUM  I  THE  LENGTH  OF  THE  CONSTITUENT  LIST  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

<*  *) 

(*  ORIGINATED:  03/07/87  K.  M.  ROSS  DBMA  *) 

<*  *) 

<* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(**) 

(*  END  XINCLUDE  MAECRN  *) 

(**) 
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(*  %INCLUDE  MAECTK  *) 

(**) 

PROCEDURE  MAECTK(VAR  KNDCNT:LISTSIZE ;VAR  RC : EXT_RET_CODE ) ; 
SUBPROGRAM; 

(**) 


(*■ 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 


^FUNCTION: 

TO  RETURN  THE  NUMBER  OF  ’KIND’  VALUES  IN  THE 
WORKING-FORM  MODEL. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KNDCNT 

RC 


0  COUNT  OF  THE  NUMBER  OF  ENTITIES  IN  THIS 
WORKING  FORM  MODEL  OF  A  SPECIFIC  KIND 
0  EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


$COMMONS : 
NDSREM 
KEY 


KEY  OF  THE  ROOT  ELEMENT  -  MUST  BE 
PROVIDED 


$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


^PROCESSING  DESCRIPTION: 

RETRIEVES  THE  VALUE  OF  THE  STD_ARY_USED_LENGTH  IN  THE 
ADB  OF  THE  SCHEMA_RQOT  ELEMENT. 

^COMMENTS: 

$ CHANGE  CONTROL: 


REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 


■*) 

*) 

*) 

*) 

*) 
★  N 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*> 

*) 

*> 

*> 

*) 

*) 

*) 

*) 
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(*  ADD  A  NEW  PARMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  10/26/84  E.  D.  SHREVE  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(**) 

(*  END  %INCLUDE  MAECTK  *) 
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(*  %INCLUDE  MAECXQ  *) 

(**) 

PROCEDURE  MAECXQ (CONST  KEY1 : ANYKEY; VAR  DATAREC : BLKDATA ; 

CONST  PROCNAME: ROUTINE; VAR  KEY2 :LISTKEY;VAR  RCC:EXT_RET_CODE; 


VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

<*  *) 

(*  $ FUNCTION:  *) 

(*  EXECUTE  A  PROCEDURE  ON  THE  CONSTITUENTS  OF  AN  ENTITY,  OR  LIST*) 

(*  OF  ENTITIES.  IF  AN  OUTPUT  LIST  IS  NOT  PASSED,  CONSTRUCT  ONE  *) 

(*  IN  ORDER  TO  PUT  ENTITIES  ON  IT  AS  DETERMINED  BY  THE  *) 

(*  APPLICATION  PROCEDURE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENITIY  OR  LIST  OF  ENTITIES  WHOSE  CONSTIT-*) 

(*  UENTS  ARE  TO  BE  PROCESSED  *) 

(*  DATAREC  I/O  APPLICATION  DEFINED  DATA  STRUCTURE  WHICH  *) 

(*  EITHER  SUPPLIES  OR  RECIEVES  VALUES  *) 

(*  OPERATED  ON  BY  THE  APPLICATION  PROCEDURE  *) 

(*  PROC  I  ENTRY  POINT  OF  APPLICATION  DEFINED  *) 

(*  PROCEDURE  *) 

(*  KEY2  0  KEY  OF  THE  LIST  CREATED  *) 

(*  FOR  THIS  ROUTINE  *) 

(*  RCC  0  USER  DEFINED  PROCEDURE  RETURN  CODE  *) 

(*  =  0,1  OK  RETURN  CODE  *) 

(*  =2-7  PROCEDURE  WARNING  CODE  *) 

(*  =  8-15  PROCEDURE  ERROR  CODE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

<*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS  *) 
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(*  %INCLUDE  MAED.  *) 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  DELETED  *) 

(*  KEYL  0  LIST  OF  ENTITIES  UNABLE  TO  DELETE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

<*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  IF  KEY1  IS  AN  ENTKEY  THEN  *) 

(*  TRY  TO  DELETE  THE  ENTITY  ACCORDING  TO  IT’S  USER'S  RULES.  *) 

(*  IF  KEY1  IS  A  LISTKEY  THEN  *) 

(*  SORT  THE  LIST  IN  A  DELETABLE  ORDER.  *) 

(*  TRY  TO  DELETE  EACH  ENTITY  ON  THE  LIST  ACCORDING  TO  ITS  *) 

(*  USER’S  DELETE  RULES.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  5/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE”  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *> 

(*  REVISED:  4/11/86  E.  D.  SHREVE  W315  *) 

(*  CHANGED  TO  TEST  FOR  NIL  LIST  POINTER  BEFORE  READING  SORTLST..  *) 
<*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  W315  *) 

(*  CHANGE  TO  READ  THE  SORT  LIST  IN  REVERSE  ORDER  -  REMOVE  THE  *) 
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(* 

CALLS  TO  ELDNL  AND  CPYNL  (NO  LONGER  NECESSARY  SINCE  SORTDLST 

*) 

(* 

HAS  BEEN  IMPROVED  FOR  EFFICIENCY  ) 

*) 

(* 

*) 

(* 

REVISED:  09/  /85 

B.  A.  ULMER 

W315 

*) 

<* 

ADD  CODE  TO  HANDLE  THE 

TWO  NEW  DELETE  RULES 

*) 

(* 

*) 

(* 

REVISED:  08/  /85 

L.  J.  BEHAN 

W315 

*) 

(* 

ADD  A  NEW  PARAMETER  TO 

DELRUL,  DELENTY  TO  HANDLE 

APPLICATION 

*) 

(* 

LIST  POSITION  PROBLEM 

*) 

(* 

*) 

(* 

REVISED:  07/11/85 

B.  A.  ULMER 

W315 

*) 

(* 

ADD  A  NEW  PARAMETER  TO 

CNVRR  FOR  ERROR  HANDLING 

AND  DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 

fit 

REVISED:  05/15/85 

B.  A.  ULMER 

W315 

*) 

(* 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

*) 

(* 

*) 

(* 

ORIGINATED:  03/08/84 

C.  J.  SAMPLE 

W315 

*) 

(* 

*) 

(*-- 

-*) 

(**) 

(*  END  %INCLUDE  MAED. 


*) 
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(*  ^INCLUDE  MAEDI .  *) 

(**) 

PROCEDURE  MAEDI (CONST  KEY1: ANYKEY;  VAR  KEY2 :LISTKEY ; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  INCLUSIVELY  AN  ENTITY  OR  LIST  OF  ENTITIES.  *) 

(*  ENTITIES  AND  THEIR  DIRECT  AND  INDIRECT  CONSTITUENTS  WILL  *) 

(*  BE  DELETED.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  *) 

(*  INCLUSIVELY  DELETED  *) 

(*  KEY2  0  LIST  OF  ENTITIES  UNABLE  TO  DELETE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  IF  KEY1  IS  AN  ENT KEY  THEN  *) 

(*  AN  INCLUSIVE  LIST  OF  THE  ENTITY’S  CONSTITUENTS  IS  CREATED  *) 

(*  AND  THE  ENTITY  IS  ALSO  PLACED  ON  THE  INCLUSIVE  LIST.  *) 

(*  *) 

(*  IF  KEY1  IS  A  LISTKEY  THEN  *) 

(*  AN  INCLUSIVE  LIST  OF  THE  LIST  OF  ENTITIES'  CONSTITUENTS  *) 

(*  IS  CREATED  AND  THE  LIST  OF  ENTITIES  ARE  ALSO  PLACED  ON  THE  *) 

(*  INCLUSIVE  LIST.  *) 

(*  *) 

(*  THE  INCLUSIVE  LIST  IS  SORTED  IN  A  USER-CONSTITUENT  ORDER.  *) 

(*  *) 

(*  FOR  EACH  ENTITY  ON  THE  INCLUSIVE  LIST,  AN  ATTEMPT  IS  MADE  *) 

(*  TO  DELETE  THE  ENTITY  ACCORDING  TO  THE  DELETE  RULES  OF  *) 

(*  THEIR  USERS.  *) 
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(*  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  W315  *) 

(*  CHANGE  TO  READ  SORT  LIST  IN  REVERSE  ORDER  *) 

(*  *) 

(*  REVISED:  09/  /85  B.  A.  ULMER  W315  *) 

(*  ADD  CODE  TO  HANDLE  THE  TWO  NEW  DELETE  RULES  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  08/  /85  L.  J.  BEHAN  W315  *) 

(*  ajD  A  NEW  PARAMETER  TO  DELRUL,  DELENTY  TO  HANDLE  APPLICATION  *) 

(*  LIST  POSITION  PROBLEM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  ORIGINATED:  08/20/84  C.  J.  SAMPLE  W315  *) 

<*  *) 

(* - *) 

XPAGE 

(**) 

(*  END  XINCLUDE  MAEDI .  *)  1 
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(*  %INCLUDE  MAEDT.  *) 

(**) 

PROCEDURE  MAEDT (CONST  KEY1 : ANYKEY ; VAR  KEYDL : LI STKEY ; 
VAR  KEYML:LISTKEY;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 


(*• 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

c* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 


^FUNCTION: 

TEST  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEY1 

KEYDL 

KEYML 

RC 


^COMMONS : 

$ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

SIMILAR  TO  MAED,  EXCEPT  NO  DELETION  NOR  MARK  FOR  DELETION 
IS  PERFORMED. 

^COMMENTS: 

$ CHANGE  CONTROL: 

REVISED:  06/19/86  B.  A.  ULMER  W315 

CHANGE  DETRUL  CALLING  PARAMETERS  &  EXCEPTION  LIST  TO  MARK  LIST 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  05/01/86  B.  A.  ULMER  W315 


I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE  TEST 
DELETED 

0  LIST  OF  ENTITIES  WHICH  WOULD  BE  DELETED 
OR  MARKED  FOR  DELETE  BY  MAED 

0  LIST  OF  ENTITIES  WHICH  WOULD  BE  MARKED 
MAED 

0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*> 

*> 
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(* 

ADDED  A  CALL  TO  CNVOSP  TO 

CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*> 

(* 

REVISED:  12/30/85 

B. 

A.  ULMER 

W315 

*) 

(* 

CHANGE  TO  READ  THE  SORT  LIST 

IN  REVERSE  ORDER  - 

REMOVE  THE 

*) 

(* 

CALLS  TO  ELDNL  AND  CPYNL 

(NOT  NECCESSARY  SORTDLST  HAS  BEEN 

*) 

<* 

IMPROVED  FOR  EFFICIENCY) 

*) 

(* 

*) 

(* 

REVISED:  07/11/85 

B. 

A,  ULMER 

W315 

*) 

(* 

ADD  A  NEW  PARAMETER  TO  CNVRR 

FOR  ERROR  HANDLING 

AND  DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 

(* 

REVISED:  05/15/85 

B. 

A.  ULMER 

W315 

*) 

c* 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

*) 

(* 

*) 

(* 

ORIGINATED:  06/27/84 

C. 

J.  SAMPLE 

W315 

*) 

(* 

*) 

(* — 

— 

— 

-*) 

%PAGE 

*) 

(**) 

(*  END  XINCLUDE  MAEDT.  *) 
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(*  %INCLUDE  MAEDTI.  *) 

(**) 

PROCEDURE  MAEDTI (CONST  KEY1 : ANYKEY; VAR  KEYDL : LI STKEY ; 

VAR  KEYML :LISTK£Y;VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(*— 

-*) 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

TEST  FOR  INCLUSIVE  DELETION  OF  AN  ENTITY  OR  LIST  OF  ENTITIES 

*) 

(* 

ENTITIES  AND  THEIR  DIRECT  AND  INDIRECT  CONSTITUENTS  WILL  BE 

*) 

(* 

TESTED  FOR  DELETION. 

*) 

<* 

*) 

(* 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(  it 

NAME  I/O  DESCRIPTION 

*) 

(* 

KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  TO  BE 

*  ) 

*) 

(* 

INCLUSIVELY  TEST  DELETED 

*) 

(* 

KEYDL  0  LIST  OF  ENTITIES  WHICH  WOULD  BE  DELETED 

*) 

(* 

BY  MAEDI 

*) 

(* 

KEYML  0  LIST  OF  ENTITIES  WHICH  WOULD  BE  MARKED  BY*) 

<* 

MAEDI 

*) 

0 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

<  0  WARNING 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

<* 

*) 

(* 

^ENVIRONMENT: 

*> 

<* 

LANGUAGE:  IBM  PASCAL 

*> 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/A381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*> 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*> 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

IF  KEY1  IS  AN  ENT KEY  THEN 

*) 

(* 

AN  INCLUSIVE  LIST  OF  THE  ENTITY'S  CONSTITUENTS  IS  CREATED 

*) 

(* 

AND  THE  ENTITY  IS  ALSO  PLACED  ON  THE  INCLUSIVE  LIST. 

*) 

(* 

*) 

(* 

IF  KEY1  IS  A  LISTKEY  THEN 

*) 

(* 

AN  INCLUSIVE  LIST  OF  THE  LIST  OF  ENTITIES'  CONSTITUENTS 

*) 

(* 

IS  CREATED  AND  THE  LIST  OF  ENTITIES  ARE  ALSO  PLACED  ON  THE 

*) 

(* 

INCLUSIVE  LIST. 

*) 

(* 

THE  INCLUSIVE  LIST  IS  SORTED  IN  A  USER-CONSTITUENT  ORDER. 

*) 

• 
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(*  *) 

(*  FOR  EACH  ENTITY  ON  THE  INCLUSIVE  LIST,  AN  ATTEMPT  IS  MADE  *) 

(*  TO  TEST  DELETE  THE  ENTITY  ACCORDING  TO  THE  DELETE  RULES  *) 

(*  OF  THEIR  USERS.  *) 

(*  *) 

(*  THE  LIST  OF  MARKABLE  ENTITIES  IS  MERGED  WITH  THE  LIST  OF  *) 

(*  NON  DELETABLE  ENTITIES.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL  *) 

<*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  06/19/86  B.  A.  ULMER  W315  *) 

(*  CHANGE  PARAMETERS  TO  DETRUL  AND  EXCEPTION  LIST  TO  MARK  LIST  *) 

(*  *) 

(*  REVISED:  01/13/85  E.  D.  SHREVE  W315  *) 

(*  CHANGED  TO  INITIALIZE  A  LIST  POSITION  VARIABLE  *) 

(*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  W315  *) 

(*  CHANGE  TO  READ  SORT  LIST  IN  REVERSE  ORDER  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  ORIGINATED:  08/21/84  C.  J.  SAMPLE  W315  *) 

(*  *) 

<* - *) 

%PAGE  *) 

<**) 

(*  END  XINCLUDE  MAEDTI .  *) 
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(*  %INCLUDE  MAEDTS.  *) 

(**) 

PROCEDURE  MAEDTS (CONST  KEY1: ANYKEY; VAR  KEYDL : LI STKEY ; 

VAR  KEYEL:LISTKEY ;VAR  KEYML: LI STKEY; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - . - 

(* 

(*  $ FUNCTION : 

(*  TEST  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES,  AND  RETURN  THREE 

(*  LISTS. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

<* 

NAME 

KEY1 

I/O 

I 

DESCRIPTION 

ENTITY  OR  LIST  OF  ENTITIES  TO 

i  BE 

TEST 

<* 

<* 

KEYDL 

0 

DELETED 

LIST  OF  ENTITIES  WHICH  WOULD 

BE 

DELETED 

(* 

(* 

KEYEL 

0 

OR  MARKED  FOR  DELETE  BY  MAED 
LIST  OF  ENTITIES  WHICH  WOULD 

NOT 

BE 

(* 

(* 

KEYML 

0 

DELETED  BY  MAED 

LIST  OF  ENTITIES  WHICH  WOULD 

BE 

MARKED, 

(* 

(* 

RC 

0 

FOR_DELET  BY  MAED 

EXTERNAL  RETURN  CODE 

(*  =  0  OK  RETURN  CODE 

(*  <0  WARNING 

(*  >  0  CRITICAL  ERROR 

(* 

(*  $ COMMONS : 

(* 

(*  ^ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  SIMILAR  TO  MAEDT,  EXCEPT  THREE  LISTS  ARE  RETURNED.  KEYDL  AND 

(*  KEYML  CAN  BE  SUBMITTED  TO  DIRECTLY  DELETE  AND  MARK  ENTITIES 

(*  USING  MAS  DELETE  ROUTINES  THAT  DO  NOT  CHECK  THE  DELETE  RULES. 

(* 

(*  ^COMMENTS: 

<* 

(*  * CHANGE  CONTROL: 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*> 

*) 

*) 
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(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  REC0GNI2EABLE  FORM  *) 

(*  *) 

(*  ORIGINATED:  04/22/86  E.  D.  SHREVE  W315  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(**) 

(*  END  ^INCLUDE  MAEDTS  *) 
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(*  %INCLUDE  MAEGKN  *) 

(**) 

PROCEDURE  MAEGKN( CONST  KEYE : ENTKEY ; VAR  KIND: INTEGER; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - - - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  RETRIEVE  THE  KIND  VALUE  OF  AN  ENTITY.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  KEY  OF  AN  ENTITY  *) 

(*  KIND  0  KIND  VALUE  OF  THE  ENTITY  (INTEGER)  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  ACCESS  THE  KIND  VALUE  FROM  THE  ENTITY  ADB  AND  RETURN  IT.  *) 

(*  *) 

(*  $ COMMENTS :  *) 

(*  NONE  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 
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(*  ORIGINATED:  03/25/85  E.  D.  SHREVE  W315  *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  MAEGKN  *) 
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(*  %INCLUDE  MAEGTK  *) 

(**) 

PROCEDURE  MAEGTK(CONST  KEYE :ENTKEY ; VAR  ENTDEF : ENTBLOCK ; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

<**> 


<*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

c* 

(* 

<* 

(* 

(* 

<* 

(* 


$FUNCTION: 

RETRIEVE  THE  ENTITY  BLOCK  WHICH  CORRESPONDS  TO  KEYE. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEYE 

ENTDEF 

RC 


I  KEY  OD  TH  ENETITY  TO  BE  RETRIEVED 
0  APPLICATION  DATA  ASSOCIATED  WITH  KEYE 
0  EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


^COMMONS: 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


^PROCESSING  DESCRIPTION: 

APPLICATION  PROVIDES  ENTITY  KEY.  MAS  WILL  RETRIEVE  THE 
ENTITY 
$ COMMENTS : 

$ CHANGE  CONTROL: 

REVISED:  08/14/86  K.  M.  ROSS  DBMA 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 

REVISED:  11/15/84  D.  J.  KERCHNER  FRMI 

CHECK  FOR  VALID  ENTITY  KEY  IF  NOT  RETURN  RC  <  0 


*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MAEKND  *) 

<**) 

PROCEDURE  MAE KND( CONST  KNDPOS :LISTINDX;VAR  KNDVAL : ORD_KIND ; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 


(*• 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

(* 

<* 

<* 

<* 

<* 

<* 

(* 


^FUNCTION: 

TO  RETURN  A  'KIND*  VALUE  FROM  THE  LIST  OF  KINDS  IN  THE 
WORKING- FORM  MODEL. 


$DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KNDPOS 

I 

SEQUENCE  //  OF  THE  KIND  VALUE  REQUESTED 

KNDVAL 

0 

KIND  VALUE  AT  THE  'KNDPOS*  POSITION 

RC 

0 

EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 

^COMMONS : 

NDSREM 

KEY 

I 

KEY  OF  THE  ROOT  ELEMENT 

MUST  BE  PROVIDED 

^ENVIRONMENT: 

LANGUAGE : 

IBM  PASCAL 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

RETRIEVES  THE  'KIND'  VALUE  STORED  AT  THE  'KNDPOS'  POSITION 
IN  THE  STD_ARRAY  OF  THE  SCH_ROOT  ADB. 

^COMMENTS : 

$ CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

ORIGINATED:  10/26/84  E.  D.  SHREVE  FRMI 


*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*> 
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(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(**) 

(*  END  %INCLUDE  MAEKND  *) 

(**) 
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(*  %INCLUDE  MAERST  *) 

(**) 

PROCEDURE  MAERST(CONST  FLGNAME : NAMTYP ;  VAR  RC :EXT_RET_CODE) ; 
SUBPROGRAM; 

(**) 


(*■ 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 


^FUNCTION: 

RESET  THE  GIVEN  FLAG  IN  ALL  ENTITIES  IN  THE  WORKING  FORM 
MODEL 


^DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

FLGNAME 

RC 

I 

0 

THE  NAME  OF  THE  FLAG  WHICH  WILL  BE  RESET 
EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 

$ COMMONS : 

NDSREM 

VAR1  I 

VAR1 

MUST 

NAME  MUST  BE  FILLED,  CHARACTER  DATA 

BE  PROVIDED 

^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

DDNAMES  USED  WITH  STANDARD  FILES: 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

^COMMENTS: 

$ CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

ORIGINATED:  08/12/85  B.  A.  ULMER  FRMI 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 
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(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  XINCLUDE  MAERST  *) 
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(*  ^INCLUDE  MAESCI .  *) 

(**) 

PROCEDURE  MAESCI (CONST  KEY1 : ANYKEY ; CONST  ISWT : INTEGER ; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

(*— 

(* 

(* 

(* 

(* 

(* 

(* 


- *) 

*) 

*) 

INCLUSIVE  CONSTITUENTS*) 

*) 

*) 

*) 


^FUNCTION: 

SET  OR  RESET  THE  PROCESS  FLAG  FOR  THE 
OF  AN  ENTITY  OR  A  LIST  ENTITIES. 

^DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME  I/O 

DESCRIPTION 

*) 

*) 

*) 

KEY1  I 

KEY  OF  THE  ENTITY  WHOSE  SWITCH  IS  TO  BE 

(* 

SET  OR  KEY  OF  THE  LIST  ALL  OF  WHOSE 

*) 

(* 

ENTITY  SWITCHES  ARE  TO  BE  SET 

*) 

<* 

ISWT  I 

SWITCH  VALUE  REQUESTED 

*) 

<* 

RC  0 

EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

$ COMMONS : 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION 

: 

*) 

(* 

THE  TYPE  OF  KEY  IS 

CHECKED  FOR. 

*) 

<* 

THE  INCLUSIVE  CONSTITUENTS  ARE  COLLECTED  FOR  AN  ENTITY  OR 

*) 

<* 

A  LIST  OF  ENTITIES. 

FOR  THE  COLLECTED  ENTITIES  THE  SWITCH 

*) 

(* 

IS  SET  OR  RESET. 

*) 

(* 

*) 

<* 

i COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*> 

(* 

*) 

(* 

*) 

(* 

ORIGINATED:  03/07/87 

K.  M.  ROSS  DBMA 

*) 

(* 

*) 
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(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  XINCLUDE  MAESCI .  *) 

(**) 
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(*  7.INCLUDE  MAESVL .  *) 

(**) 

PROCEDURE  MAESVL(CONST  KEY1 :ENTKEY;VAR  ISET : INTEGER ; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  FIND  THE  CURRENT  BINARY  SWITCH  SETTING  OF  AN  ENTITY.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  KEY  OF  THE  ENTITY  WHOSE  SETTING  IS  TO  BE  *) 

(*  DETERMINED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

<*  *) 

<*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 

(*  THE  INPUT  KEY  MUST  BE  AN  ENTITY  KEY.  IF  THE  SWITCH  IS  *) 

(*  TRUE,  THEN  THE  VALUE  "1"  IS  RETURNED.  IF  THE  SWITCH  IS  *) 

(*  FALSE,  THEN  THE  VALUE  ”0"  IS  RETURNED.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  DBMA  *) 

(*  ADDED  A  CHECK  FOR  NIL  POINTER  FOR  KEY1  *) 
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(*  %INCLUDE  MAESWA  *) 

(**) 

PROCEDURE  MAESWA(VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - 

<* 

(*  $ FUNCTION: 

(*  SETS  THE  PROCESS  BIT  'OFF*  IN  ALL  ENTITIES  IN  THE  MODEL. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  RC  0  EXTERNAL  RETURN  CODE 

(*  =  0  OK 

(*  >  0  CRITICAL  ERROR 

(*  <0  WARNING 

(* 

(*  ^COMMONS: 

(*  NDSREM 

(*  KEY  I  KEY  OF  THE  MODEL  ROOT  ELEMENT 

(* 

(*  ^ENVIRONMENT: 

<*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  EACH  ENTRY  IN  THE  SCHEMA-ROOT  CONSTITUENT  LIST  IS  READ. 

(*  IF  IT  IS  AN  INSTANCE_COLLECTOR  NODE,  THEN  EACH  ENTITY 

(*  ON  THE  CONSTITUENT  LIST  OF  THE  COLLECTOR  NODE  IS  READ 

(*  AND  THE  ADB.SYSUSE  FIELD  IS  SET  TO  'TRUE'. 

<* 

(*  $ COMMENTS: 

(* 

(*  $ CHANGE  CONTROL: 

(* 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDTION 

(*  TO  USER  RECOGNIZEABLE  FORM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
(*  PURPOSES 

(* 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 
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(*  ORIGINATED:  02/06/85  CCWW  E.  D.  SHREVE  FRMI  *) 

(*  *) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - - - *) 

(*  END  %INCLUDE  MAE SWA  *) 

(**) 
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(*  %INCLUDE  MAE SWT.  *) 

(**) 

PROCEDURE  MAESWT(CONST  KEY1: ANYKEY; CONST  ISWTrINTEGER; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - *) 

(*  $ FUNCTION:  *) 

(*  SET  AN  ENTITY  SWITCH  OR  THE  SWITCHES  FOR  EACH  ENTITY  IN  A  *) 

(*  LIST  AS  REQUESTED  BY  THE  USER.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  KEY  OF  THE  ENTITY  WHOSE  SWITCH  IS  TO  BE  *) 

(*  SET  OR  KEY  OF  THE  LIST  ALL  OF  WHOSE  *) 

(*  ENTITY  SWITCHES  ARE  TO  BE  SET  *) 

(*  I SWT  I  SWITCH  VALUE  REQUESTED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

<*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THE  TYPE  OF  KEY  IS  CHECKED  FOR.  *) 

(*  IF  AN  ENTITY,  THEN  THE  ENTITY’S  SWITCH  IS  RESET.  *) 

<*  IF  A  LIST,  THEN  EACH  ENTITY  ON  THE  LIST  HAS  ITS  SWITCH  *) 

(*  RESET.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 
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(*  %INCLUDE  MAEU.  *) 

(**) 

PROCEDURE  MAEU (CONST  KEY1: ANYKEY; VAR  KEY2 :LISTKEY ; 
VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

<* - 

(* 

(*  $ FUNCTION : 

(*  CREATE  A  LIST  OF  USER  ENTITY  REFERENCES. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

ENTITY  OR  LIST  OF  ENTITIES  FOR  WHICH  A 

(* 

LIST 

OF  DIRECT  USERS  IS  REQUESTED 

<* 

PARM2 

0 

LIST 

OF  USER  REFERENCES 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

=  0 

OK  RETURN  CODE 

<* 

<  0 

WARNING 

(* 

>  0 

CRITICAL  ERROR 

(* 

(* 

$ COMMONS: 

(* 

(* 

^ENVIRONMENT: 

<* 

LANGUAGE : 

IBM  PASCAL 

(* 

HARDWARE 

SYSTEM: 

IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  A  NEW  LIST,  KEY2 ,  IS  CREATED  THAT  CONTAINS  THE  LIST  OF 

(*  DIRECT  USERS.  IF  KEY1  IS  AN  ENTITY  KEY,  THE  DIRECT  USERS 

(*  OF  KEY1  ARE  PLACED  IN  THE  LIST.  IF  KEY1  IS  A  LISTKEY,  THE 

(*  DIRECT  USERS  OF  ALL  ENTITIES  IN  THE  LIST  ARE  PLACED  INTO 

(*  KEY2 . 

(* 

(*  ^COMMENTS: 

(* 

(*  $ CHANGE  CONTROL: 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE”  CONDITION 
(*  TO  USER  RECOGNIZEABLE  FORM 
(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

PURPOSES 

*) 

(* 

*) 

(* 

REVISED:  05/15/85 

B.  A.  ULMER 

W315 

*> 

(* 

FIX  INCONSISTENCY 

IN 

OUTPUT  LIST  PROCESSING 

*) 

(* 

*) 

(* 

REVISED:  08/14/86 

K.  M.  ROSS 

W315 

*) 

<* 

ADDED  A  CHECK  FOR 

NIL 

POINTER  FOR  KEY1 

*) 

(* 

*) 

(* 

ORIGINATED:  06/21/84 

D.  J.  KERCHNER 

W315 

*) 

(* 

*) 

(* — 

— 

— 

— 

- *) 

%PAGE 

*) 

(**) 

(*  END  %INCLUDE  MAEU.  *) 
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(*  % INCLUDE  MAEUD  *) 

(**) 

PROCEDURE  MAEUD (VAR  KEYE :ENTKEY; VAR  ENTDEF:ENTBLOCK; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

-*) 

— 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

UPDATE  THE  ENTITY  BLOCK  CORRESPONDING  TO  A  KEY. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

(* 

KEYE  I  KEY  OF  THE  ENTITY  TO  BE  UODATED 

/ 

*) 

(* 

ENTDEF  I  APPLICATION  DATA  ASSOCIATED  WITH  KEYE 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

(* 

^ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

CALL  REVNODM 

*) 

(* 

*) 

(* 

^COMMENTS: 

*) 

(* 

IT  IS  ILLEGAL  FOR  THE  APPLICATION  TO  CHANGE  KIND  i 

ON  UPDATE. 

*) 

(* 

*) 

(* 

t CHANGE  CONTROL: 

*) 

(* 

*) 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

FRMI 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 

CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED:  07/11/85  B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 

DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 

<* 

REVISED:  10/11/84  D.  J.  KERCHNER 

FRMI 

*) 
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(*  UPDATED  THE  INCLUDE  DOCUMENTATION  *> 
(*  * ) 
(*  REVISED:  10/04/84  E.  D.  SHREVE  FRMI  *) 
(*  CHANGED  THE  DECLARATION  FOR  KEYE  AND  ENTDEF  TO  VAR  *) 
(*  *) 
(*  REVISED:  08/14/86  K.  M.  ROSS  DBMA  *) 
(*  ADDED  A  CHECK  FOR  NIL  POINTER  FOR  KEY1  *) 
(*  *) 
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(*  7.INCLUDE  MAEUI  *) 

(**) 

PROCEDURE  MAEUI (CONST  KEY1 : ANYKEY ; VAR  KEY2 :LISTKEY ; 
VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 


^FUNCTION: 

CREATE  AN  APPLICATION  LIST  OF  INCLUSIVE  USER  ENTITIES, 


$DESCRIPTION  OF  ARGUMENTS; 


DESCRIPTION 


KEY1  I  KEY  OF  AN  ENTITY  OR  A  LIST. 

KEY2  0  RETURNED  KEY  OF  THE  APPLICATION  LIST. 

RC  0  FUNCTION  RETURN  CODE. 

=  0  GOOD  RETURN 

>  0  CRITICAL  ERROR 

<  0  WARNING 

$ ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  PROCEDURE 

^PROCESSING  DESCRIPTION: 

KEY2  IS  CREATED  (EMPTY  LIST). 

IF  KEY1  IS  AN  ENTITY,  THEN  THE  INCLUSIVE  USER  LIST  OF  KEY1 
WILL  BE  COPIED  INTO  KEY2 . 

IF  KEY1  IS  A  LIST  KEY,  THEN  THE  INCLUSIVE  USER  LISTS  OF 
EACH  ENTITY  WILL  BE  COPIED  INTO  KEY2 . 

$ CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 
CONDITION  TO  USER  RECOGNIZEABLE  FORM 
REVISED:  11/08/85  B.  A.  ULMER  W315 

FIX  BUG  DEALING  WITH  PREVIOUS  FIX 
REVISED:  11/08/85  B.  A.  ULMER  W315 

NOT  ALLOW  ENTITIES  THAT  ARE  ON  THE  APPLICATION 
INPUT  LIST  TO  BE  ON  THE  APPLICATION  OUTPUT  LIST 
(FIX  THE  INCONSISTENCIES  IN  THE  PROCESSING) 
REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING 
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(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(**) 

(*  END 


AND  DEBUGGING  PURPOSES 

REVISFTV  05/15/85  B.  A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 
REVISED:  04/29/85  E.  D.  SHREVE  W315 

TO  USE  MAS  INTERNAL  PROCESS  FLAG  (MAPROB) 
REVISED:  08/14/86  K.  M.  ROSS  W315 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 
ORIGINATED:  06/13/84  D.  J.  KERCHNER  W315 


% INCLUDE  MAEUI  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MAEUIK  *) 

(**) 

PROCEDURE  MAEUIK(CONST  KEY1 '.ANYKEY;  CONST  ENTKIND : ORD_KIND ; 
VAR  KEY2 :LISTKEY; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 


(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  A  LIST  OF  INCLUSIVE  USERS  BY  KIND.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  KEY1  I  THE  KEY  OF  AN  ENTITY  OR  A  LIST  OF  ENTITIES  *) 

(*  WHOSE  INCLUSIVE  USERS  ARE  TO  BE  SEARCHED  *) 


<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 


FOR  THE  SPECIFIED  KIND.  *) 

KIND  I  THE  KIND  CODE  OF  AN  ENTITY  OR  AN  ENTITY  *) 

CLASS.  *) 

KEY2  0  THE  KEY  OF  THE  LIST  WHICH  WILL  CONTAIN  ALL  *) 

ENTITIES  OF  THE  SPECIFIED  KIND  FOUND  WITHIN  *) 
THE  INCLUSIVE  USERS  OF  KEY1 .  *) 

RC  0  THE  FUNCTION  RETURN  CODE.  *) 

=  0  GOOD  RETURN  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 

$ COMMONS :  *) 

NONE  *) 

^ENVIRONMENT :  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360,  370,  43XX  *) 

^EXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

^PROCESSING  DESCRIPTION:  *) 

FOR  THE  GIVEN  ENTKEY  OR  LISTKEY  EXPAND  ITS  USERS  INCLU  *) 

SIVLEY.  FOR  EACH  MEMBER  OF  THE  EXPANDED  LIST  WHOSE  KIND  *) 

MATCHES  THE  KIND  VALUE  DESIRED  ADD  IT  TO  THE  LIST  POINTED  *) 
TO  BY  KEY2  *) 

$ CHANGE  CONTROL:  *) 

REVISED:  05/01/86  B.A.  ULMER  W315  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"*) 
CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 
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(* 

(* 

(* 

(* 

c* 

(* 

(* 

<* 

(* 

<* 

(* 


REVISED:  07/11/85  B.A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING 

AND  DEBUGGING 

REVISED:  05/15/85  B.A.  ULMER  W315 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 
REVISED:  04/29/85  E.D.  SHREVE  W315 

TO  USE  THE  INTERNAL  MAS  PROCESS  FLAG  (MAPROB) 
REVISED:  08/14/86  K.M.  ROSS  W315 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 
ORIGINATED:  08/20/84  R.  A.  MCCLUSKEY  W315 


<**) 

(*  END  %INCLUDE  MAEUIK  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 
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(*  %INCLUDE  MAEUSR  *) 


PROCEDURE  MAEUSR(CONST  KEYE : ENTKEY ;  VAR  UEXIST: INTEGER; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  DETERMINES  IF  AN  ENTITY  HAS  ANY  USERS.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  ENTITY  KEY  *) 

(*  UEXIST  0  INTEGER  VALUE  INDICATING  IF  KEYE  HAS  *) 

(*  ANY  USERS.  *) 

(*  =  0  NO  USERS  EXIST  *) 

(*  =1  USERS  EXIST  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  MESSAGE  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

<*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  EVALUATES  THE  USER  FOINTER  IN  THE  ENTITY  BLOCK  FOR  A  NIL.  *) 

(*  IF  NIL,  THEN  NO  USERS  EXIST.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  THIS  PROCEDURE  DEVELOPED  SPECIFICALLY  FOR  THE  IDB  PACKAGE  *) 

(*  BUT  IS  FUNCTIONAL  FOR  ALL  APPLICATIONS.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *> 

(*  REVISED:  05/01/86  B.  A.  ULMER  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  REC0GNI2EABLE  FORM  *) 
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(*  REVISED:  04/07/85  B.  A.  ULMER  *) 

(*  CHANGED  TO  CHECK  FOR  THE  SYSTEM  LIST  HAVING  NO  ENTRIES  -  IF  IT*) 
(*  DOES,  THEN  NO  USERS  EXIST  *) 

(*  *) 

(*  REVISED:  07/11/86  B.  A.  ULMER  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  03/25/85  E.  D.  SHREVE  *) 

(*  *) 

(*  *) 

(*END - *) 

(*  END  % INCLUDE  MAEUSR  *) 
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(*  %INCLUDE  MAEUXQ  *) 

(**) 

PROCEDURE  MAEUXQ (CONST  KEY1 : ANYKEY; VAR  DATAREC : BLKDATA ; 

CONST  PROCNAME: ROUTINE; VAR  KEY2 :LISTKEY;VAR  RCC :EXT_RET_CODE ; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 


(*- 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

<* 

<* 

(* 


^FUNCTION: 

EXECUTE  A  PROCEDURE  ON  THE  USERS  OF  AN  ENTITY,  OR  LIST 
OF  ENTITIES.  IF  AN  OUTPUT  LIST  IS  NOT  PASSED,  CONSTRUCT  ONE 
IN  ORDER  TO  PUT  ENTITIES  ON  IT  AS  DETERMINED  BY  TIIE 
APPLICATION  PROCEDURE. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEY1 

DATAREC 

PROC 
KEY  2 
RCC 

RC 


I  ENITIY  OR  LIST  OF  ENTITIES  WHOSE  USERS 
ARE  TO  BE  PROCESSED 

I/O  APPLICATION  DEFINED  DATA  STRUCTURE  WHICH 
EITHER  SUPPLIES  OR  RECIEVES  VALUES 
OPERATED  ON  BY  THE  APPLICATION  PROCEDURE 
I  ENTRY  POINT  OF  APPLICATION  DEFINED 
PROCEDURE 

0  KEY  OF  THE  LIST  CREATED 
FOR  THIS  ROUTINE 

0  USER  DEFINED  PROCEDURE  RETURN  CODE 
=  0,1  OK  RETURN  CODE 
=  2-7  PROCEDURE  WARNING  CODE 
=  8-15  PROCEDURE  ERROR  CODE 
0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
<  0  WARNING 
>  0  CRITICAL  ERROR 


$  COMMONS : 


^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS 
ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 
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(*  UPON  THE  INFORMATION  HE  HAS  SUPPLIED  TO  THE  PROCEDURE. 

(* 

(*  ^COMMENTS: 

(* 

(*  $ CHANGE  CONTROL: 

(* 

(*  REVISED:  09/09/86  B.  A.  ULMER  DBMA 

(*  FIX  PROBLEM  WITH  DELETING  EMPTY  PASSED  IN  APPL  LIST 

(* 

(*  ORIGINATED:  06/16/86  B.  A.  ULMER  W315 

(* 

<* - 

%PAGE 

(**) 

(*  END  %INCLUDE  MAEUXQ  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

■*) 

*) 
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(*  %INCLUDE  MAEXEQ  *) 


<**) 

PROCEDURE  MAEXEQ (CONST  KEY1 : ANYKEY ;VAR  DATAREC : BLKDATA ; 
CONST  PROCNAME: ROUTINE; VAR  RCC:EXT_RET_CODE; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

(*— 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

<* 

(* 

<* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 


*) 

*) 


$ FUNCTION :  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

KEY1  I  THE  KEY  OF  THE  ENTITY  OR  APPLICATION  LIST*) 

OF  ENTITIES  TO  BE  PROCESSED  *) 

DATAREC  I/O  THE  APLLICATION  DEFINED  DATA  STRUCTURE  *) 

WHICH  EITHER  SUPPLIES  OR  RECEIVES  VALUES  *) 
OPERATED  ON  BY  THE  APPLICATION  USER  *) 

DEFINED  PROCEDURE  *) 

PROCNAME  I  THE  NAME  OF  THE  USER  DEFINED  PROCEDURE  *) 

RCC  0  THE  USER  DEFINED  PROCEDURE’S  RETURN  CODE  *) 

RCC  <  0  &  RCC  >  15  PROC_OUT_OF_RANGE  *) 

RCC=>  0  &  RCC=<  7  CONTINUE  PROCESSING  *) 
RCC=>  8  &  RCC=c  15  PROC_CODE_ERROR  *) 

RC  0  EXTERNAL  RETURN  CODE  *) 

=  0  OK  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 

*) 

$COMMONS :  *) 

*) 

$ ENVIRONMENT :  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

^EXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS  *) 

ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT  *) 

UPON  THE  INFORMATION  HE  HAS  SUPPLIED  TO  THE  PROCEDURE.  *) 

THE  PROCEDURE  RETURNS  ITS  OWN  RETURN  CODE  TO  THE  USER.  *) 

*) 

^COMMENTS:  *) 

*) 

iCHANGE  CONTROL:  *) 
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(*  *) 

(*  REVISED:  05/01/86  B.  A. ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  01/20/86  B.  A. ULMER  FRMI  *) 

(*  ADD  NEW  CAPABILITY  TO  ALLOW  READING  LIST  IN  REVERSE  IN  ORDER  *) 

(*  TO  PROCESS  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A. ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  03/06/85  B.  A. ULMER  FRMI  *) 

(*  FIXED  APPLICATION  LIST  PROBLEM  *) 

(*  *) 

(*  REVISED:  11/28/84  D.  J.  KERCHNER  FRMI  *) 

(*  CHANGED  MANNER  OF  ACCESSING  USER  DEFINED  PROCEDURE  -  NOW  *) 

(*  ACCESSED  VIA  ASSEMBLER  CSECT  PASASM  *) 

(*  *) 

(*  ORIGINATED:  04/11/84  D.  J.  KERCHNER  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

<* - *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  MAEXEQ  *) 

(**) 
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(*  %INCLUDE  MAINIT .  *) 

(**) 

PROCEDURE  MAINIT(VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  INITIALIZE  THE  MAS  NETWORK.  *) 

<*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <  0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  ^COMMONS:  *) 

<*  *> 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  ^CHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  REVISED:  05/21/85  B.  A.  ULMER  W315  *) 

(*  ADD  CALL  TO  INITIALIZE  THE  APPLICATION  ACCESSIBLE  FLAC  TABLE  *) 

(*  *) 

(*  ORIGINATED:  03/08/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* - *) 

XPAGE  *) 

XPRINT  ON 

(*  END  XINCLUDE  MAINIT  *) 
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(*  %INCLUDE  MAKCNT  *) 

(**> 

PROCEDURE  MAKCNT( CONST  KINDX: INTEGER; VAR  COUNT: INTEGER; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DETERMINE  THE  NUMBER  OF  ENTITIES  IN  THE  WORKING  FORM  MODEL  *) 

(*  OF  A  SPECIFIED  KIND  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KINDX  I  KIND  VALUE  FOR  WHICH  A  COUNT  IS  TO  BE  *) 

(*  DETERMINED  *) 

(*  COUNT  0  NUMBER  OF  ENITITES  IN  THE  MODEL  OF  THE  *) 

(*  SPECIFIED  KIND  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <  0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  DETERMINE  IF  THE  KIND  SPECIFIED  IS  IN  THE  WORKING  FORM  *) 

(*  MODEL.  IF  SO,  RETURN  THE  LENGTH  VALUE  OF  THE  CONSTITUENT  *) 

(*  LIST  FOR  THE  COUNT.  IF  NOT,  RETURN  A  VALUE  OF  ZERO  FOR  *) 

(*  THE  COUNT.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 
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(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  05/10/85  B.  A.  ULMER  W315  *) 

(*  A) 

(*END - *) 

(*  END  %INCLUDE  MAKCNT  *) 


Cl  PS560240032U 
April  1990 


(*  %INCLUDE  MAKILL.  *) 

(**) 

PROCEDURE  MAKILL(VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


(**) 

(*--• 

— 

-*) 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

DELETE  THE  WORKING  FORM  MODEL. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

*  *s 

<* 

RC  0  EXTERNAL  RETURN  CODE 

*  ) 
*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

<  0  WARNING 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

NDSGVR 

*) 

(* 

LIST_OF_ROOTS  0  POINTER  TO  LIST  OF  ROOTS 

*) 

(* 

STACK_OF_LISTS  0  POINTER  TO  STACK_OF_ROOTS 

*) 

(* 

NDSREM 

*) 

(* 

KEY  0  POINTER  TO  THE  WORKING  FORM  ROOT  NODE 

*) 

(* 

*) 

<* 

$ ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE. 

*) 

(* 

THIS  VERSION  USED  WITH  THE  MAS  MEMORY  MANAGER. 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

<* 

DELETES  THE  WORKING  FORM  USING  PROCEDURE  'NDSREL' 

a 

*) 

(* 

RESETS  POINTERS  IN  THE  COMMONS  TO  NIL. 

*) 

(* 

*) 

<* 

^COMMENTS: 

*) 

(* 

THIS  VERSION  FOR  USE  WITH  THE  MAS  MEMORY  MANAGER. 

THE  OLD 

*) 

<* 

VERSION  MUST  BE  USED  IF  THE  PASCAL  MEMORY  MANAGER 

IS  USED. 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

*) 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

W315 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 

CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*> 

(* 

*) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  04/05/85  E.  D.  SHREVE  W315  *) 

(*  CHANGED  TO  DELETE  THE  WORKING  FORM  USING  'NDSREL' .  *) 

(*  *) 

(*  ORIGINATED:  02/02/84  D.  KERCHNER  K315  *) 

(*  *) 

(* - *) 

(*END - *) 

(**) 

%PRINT  ON 

(*  END  %INCLUDE  MAKILL  *) 
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(*  %INCLUDE  MAKXEQ  *) 

<**) 

PROCEDURE  MAKXEQ (CONST  KIND :ORD_KIND; VAR  DATAREC : BLKDATA ; 

CONST  PROCNAME: ROUTINE; VAR  RCC : EXT_RET_CODE ; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - 

(* 

(*  $ FUNCTION 

(*  EXECUTE  A  PROCEDURE  ON  ALL  ENTITIES  OF  A  SPECIFIED  KIND. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KIND 

I 

KIND  VALUE  OF  THE  ENTITIES  TO  BE  PROCESSED. 

(* 

DATAREC 

I 

THE  APPLICATION  DEFINED  DATA  STRUCTURE  WHICH 

(* 

EITHER  SUPPLIES  OR  RECEIVES  VALUES  OPERATED 

(* 

ON  BY  THE  APPLICATION  DEFINED  PROCEDURE. 

(* 

PROCNAME 

I 

THE  NAME  OF  THE  USER  DEFINED  PROCEDURE. 

(* 

DATAREC 

0 

THE  DATA  STRUCTURE  THAT  RESULTS  FROM  USING 

(* 

THE  USER  DEFINED  PROCEDURE. 

(* 

RCC 

0 

THE  USER  DEFINED  PROCEDURE’S  RETURN  CODE. 

(* 

RC 

0 

THE  FUNCTION  RETURN  CODE. 

(* 

=0  EXPECTED  RESULT 

<* 

>0  CRITICAL  ERROR 

(* 

<0  WARNING 

(* 

$ COMMONS: 

(* 

NONE 

(* 

(*  ^ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE. 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  THE  CONSITIUENT  LIST  OF  THE  INPUT  ’KIND’  INSTANCE  COLLECTOR 

(*  IS  READ  IN  LIFO  ORDER  AND  THE  INPUT  PROCEDURE  IS  CALLED 

(*  WITH  EACH  ENTRY  IN  THE  CONSTITUENT  LIST. 

(* 

(*  ^COMMENTS: 

(*  THE  ROUTINE  PASASM  IS  CALLED  TO  PROVIDE  A  METHOD  OF  PASSING 

(*  ARGUMMENTS  FROM  A  FORTRAN  ROUTINE. 

(*  THE  LIST  IS  READ  IN  LIFO  ORDER  IN  CASE  THE  INPUT  PROCEDURE 

(*  DELETES  ENTITIES  THAT  AFFECT  THE  LIST  BEING  READ.  WITH  THE 

(*  LIFO  ORDER,  THE  LIST  POSITION  IS  NOT  AFFECTED. 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  *) 

(*  $CHANGE  CONTROL:  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  *) 

(*  CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  REVISED:  07/29/85  B.  A.  ULMER  *) 

(*  FIX  LOCAL  LIST  PROBLEM  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  *) 

(*  DEBUGGING  PURPOSES  *) 

(*  REVISED:  03/27/85  E.  SHREVE  *) 

(*  TO  READ  THE  LIST  IN  LIFO  ORDER  *) 

(*  REVISED:  03/11/85  B.  ULMER  *) 

(*  FIX  PROBLEM  OF  LIST  POSITION.  *) 

(*  REVISED:  02/18/85  B.  ULMER  *) 

(*  CHANGED  THE  STRUCTURE  OF  THE  INTERNAL  ITEM  FOR  IMPLEMENT-  *) 

(*  ATION  OF  THE  CRB  *) 

(*  ORIGINATED:  01/20/85  E.  SHREVE  *) 

(* - *) 

(**) 

(*  END  % INCLUDE  MAKXEQ  *) 
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(*  %INCLUDE  MAL  *) 

(**) 

PROCEDURE  MAL (VAR  KEYL:LISTKEY;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

<*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  AN  EMPTY  LIST.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <  0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  $ COMMENTS :  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A. ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

<*  *) 
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(*  %INCLUDE  MALAND.  *) 

(**) 

PROCEDURE  MALAND (CONST  KEY1 : ANYKEY ; CONST  KEY2: ANYKEY; 
VAR  KEY3 rLISTKEY ; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 


<*- 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

c* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


-*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

===========  *) 

ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE  *) 
'ANDED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 
ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE  *) 
'ANDED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 
LIST  OF  ENTITIES  COMMON  TO  KEY1  AND  KEY2  *) 
EXTERNAL  RETURN  CODE  *) 

=  0  OK  RETURN  CODE  *) 

<  0  WARNING  *) 

>  0  CRITICAL  ERROR  *) 

*) 
*) 
*) 
*) 
*) 
*) 
*> 
*) 
*) 
*) 
*) 
*) 
*) 
*> 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


^FUNCTION: 

CREATE  AN  APPLICATION  LIST  OF  ENTITIES  COMMON  TO  TWO  INPUT 
LISTS. 

^DESCRIPTION  OF  ARGUMENTS: 


I/O  DESCRIPTION 


0 

0 


NAME 

KEY1 

KEY2 

KEY  3 
RC 


^COMMONS : 

$ ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

THE  INPUT  LIST  KEY1  WILL  BE  COMPARED  WITH  THE  INPUT  LIST 
KEY2 .  THOSE  ENTITIES  WHICH  APPEAR  ON  KEY1  AND  KEY2  WILL 
BE  PUT  ON  THE  OUTPUT  LIST  KEY3 . 

$ COMMENTS : 

$ CHANGE  CONTROL: 

REVISED:  05/01/86 
ADDED  A 


B.  A.  ULMER  W315 

CALL  TO  CNVOSP  TO  CONVERT  AN  :OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 
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(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  03/09/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(**) 

(*  END  %INCLUDE  MALAND.  *) 
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(*  %INCLUDE  MALATC  *) 

(**) 

PROCEDURE  MALATC (VAR  KEY1 : ANYKEY; CONST  KEY2: ANYKEY; 
VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 


$ FUNCTION: 

APPEND  AN  ENTITY  OR  LIST  (KEY2)  TO  AN  ENTITY  OR  LIST 

^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

KEY1  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF 

TO  WHICH  KEY2  IS  APPENDED 

KEY2  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF 

TO  BE  APPENDED  RO  KEY1 
RC  0  EXTERNAL  RETURN  CODE 

=  0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 

$  COMMONS: 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

IF  KEY1  AND  KEY2  ARE  BOTH  ENTITIES,  THEN 

KEY2  IS  ADDED  TO  THE  CONSTITUENT  LIST  OF  KEY1. 

IF  KEY1  IS  AN  ENTITY  AND  KEY2  IS  A  LIST,  THEN 

ALL  ENTITIES  OF  KEY2  ARE  ADDED  TO  THE  CONSTITUENT 
OF  KEY1 . 

IF  KEY1  IS  A  LIST  AND  KEY2  IS  AN  ENTITY,  THEN 
KEY 2  IS  ADDED  TO  THE  END  OF  KEY1. 

IF  KEY1  AND  KEY2  ARE  BOTH  LISTS,  THEN 

ALL  ENTITIES  OF  KEY2  ARE  ADDED  TO  THE  END  OF  KEY1. 

^COMMENTS : 


- *) 

*) 

*) 

(KEY1) .  *) 
*) 
*) 
*) 
*) 

ENTITIES*) 

*) 

ENTITIES*) 

*) 


$ CHANGE  CONTROL: 
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(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 


REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 
TO  USER  RECOGNIZEABLE  FORM  *) 

*) 

REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 

REVISED:  10/11/84  D.  J.  KERCHNER  FRMI  *) 

INPUT  PARAMETER  KEY2  CHANGED  TO  VAR  FROM  CONST  FOR  COMPATA-  *) 
BILITY  WITH  DEC  VAX  SYSTEM  -  UPDATE  DOC  *) 

*) 
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(*  %INCLUDE  MALCPY.  *) 

<**) 

PROCEDURE  MALCPY (CONST  KEY1 :LISTKEY ;VAR  KEY2  rLISTKEY ; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  MAKE  A  COPY  OF  A  LIST.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  KEY  OF  THE  LIST  TO  BE  COPIED  *) 

(*  KEY2  I  THE  KEY  OF  THE  NEW  LIST  THAT  WILL  CONTAIN*) 

(*  A  COPY  OF  KEY1  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *> 

(*  ^CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

<*  *) 
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(*  %INCLUDE  MALD.  *) 

(**) 

PROCEDURE  MALD (CONST  KEY1 :LISTKEY; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 
(**) 


V. - 

(* 

—  j 

*) 

(* 

^FUNCTION: 

*) 

(* 

DELETE  AN  APPLICATION  LIST. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 
*  ^ 

(* 

KEY1  I  THE  KEY  OF  THE  APPLICATION  LIST  TO  BE 

* ) 
*) 

<* 

DELETED 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

1.  KEY1  MUST  BE  A  LISTKEY. 

*> 

(* 

2.  KEY I  IS  DELETED  AND  CAN  NOT  BE  RECOVERED. 

*) 

(* 

*) 

(* 

$ COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

FRMI 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 

CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED:  07/11/85  B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 

DEBUGGING 

*> 

(* 

PURPOSES 

*) 

<* 

*) 

(* 

REVISED:  08/14/80  K.  M.  ROSS 

DBMA 

*) 

(* 

ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 

*) 

(* 

PURPOSES 

*) 

(* 

*) 
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(*  ^INCLUDE  MALDA  *) 

(**) 

PROCEDURE  MALDA(VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

<*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  ALL  APPLICATION  LISTS  THAT  ARE  NOT  'LOCKED*.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  MESSAGE  *) 

C*  *) 

(*  ^COMMONS:  *) 

(*  NDSGVR  *) 

(*  STACK_OF_LISTS  I  KEY  OF  STACK_OF_LISTS  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  READS  THE  STACK_OF_LISTS  AND  CALLS  THE  APPROPRIATE  ROUTINE  *) 

(*  TO  DELETE  ALL  LISTS  FROM  THE  LIST_OF_LISTS .  IF  THE  LIST_  *) 

(*  OF_LISTS  IS  EMPTY,  THE  SYSTEM  LIST  IS  DISPOSED.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  ONLY  APPLICATION  LISTS  THAT  ARE  NOT  LOCKED  (DELTFLG  =  0)  *) 

(*  ARE  DELETED.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION*) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

<*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING*) 

(*  PURPOSES  *) 
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(*  REVISED:  04/23/85  E.D.  SHREVE  W315  *) 

(*  TO  DELETE  ONLY  UN_LOCKED  APPLICATION  LISTS.  *) 

(*  ORIGINATED:  03/21/84  R.  A.  MCCLUSKEY  W315  *) 

(*  *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  MALDA  *) 
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(*  %INCLUDE  MALDI  *) 

(**) 

PROCEDURE  MALDI (CONST  KEY1 : ANYKEY; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  AN  APPLICATION  LIST  AND  ALL  LISTS  AFTER  IT  THAT  ARE  *) 

(*  NOT  LOCKED.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  LIST  TO  START  THE  DELETE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  MESSAGE  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NDSGVR  *) 

(*  STACK_OF_LISTS  I  KEY  OF  STACK_OF_LISTS  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  READS  THE  STACK_OF_LISTS  AND  CALLS  THE  APPROPRIATE  ROUTINE  *) 

(*  TO  DELETE  ALL  LISTS  FROM  THE  LIST_OF_LISTS  AFTER  A  SPECI-  *) 

(*  FIED  LIST.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  ONLY  APPLICATION  LISTS  THAT  ARE  NOT  LOCKED  ( DELTFLG  =  0)  *) 

(*  ARE  DELETED.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

<*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

<*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION*) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING*) 

(*  PURPOSES  *) 
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(*  REVISED:  04/23/85  E.D.  SHREVE  W315  *) 

(*  TO  DELETE  ONLY  UNBLOCKED  APPLICATION  LISTS.  *) 

(*  REVISED:  84/09/27  D.  KERCHNER  *) 

(*  CHG  TO  DECREMENT  POSITION  FOR  READ  FROM  LIST,  CHG  TO  *) 

(*  CHECK  FOR  VALID  POSITION  NUMBER,  CHG  TO  DELETE  EACH  *) 

(*  EACH  ENTITY  FROM  LIST_OF_LISTS .  *) 

(*  REVISED:  86/08/14  K.  ROSS  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  ORIGINATED:  03/21/84  R.  A.  MCCLUSKEY  W315  *) 

(*  *> 

(*  *) 

- - *) 

(*  END  % INCLUDE  MALDI  *) 
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(*  7.INCLUDE  MALFND .  *) 

<**) 

PROCEDURE  MALFND (CONST  KEY1 : ANYKEY ; CONST  KEY2  :ENTKEY ; 

CONST  IFIRST:LISTPSTN ;VAR  IPOS :LISTPSTN;VAR  RC :EXT_RET_CODE) ; 
SUBPROGRAM; 


(**) 

.*) 

(* — 

(* 

*) 

(* 

$ FUNCTION 

*) 

(* 

FIND  THE  POSITION  OF  AN  ENTITY  (KEY2)  IN  AN  APPLICATION 

*) 

(* 

LIST  (KEY1) . 

IF  KEY1  IS  AN  ENTITY  THEN  FIND  ITS  POSITION 

*) 

(* 

IN  THE  CONSTITUENT  LIST  OF  THAT  ENTITY. 

*) 

(* 

*) 

<* 

$DESCRIPTION  OF 

ARGUMENTS : 

*) 

(* 

NAME  I/O 

DESCRIPTION 

*) 

(* 

=  =  =  5= 

*) 

(* 

KEY1  I 

THE  KEY  OF  THE  LIST  IN  WHICH  KEY2  IS  TO  BE 

*) 

(* 

FOUND . 

*) 

(* 

KEY2  I 

THE  KEY  OF  THE  ENTITY  TO  BE  FOUND  IN  KEY1 . 

*) 

(* 

IFIRST  I 

THE  POSITION  IN  KEY1  WHERE  THE  FIND 

*) 

(* 

OPERATION  IS  TO  START. 

*) 

(* 

IPOS  0 

THE  POSITION  IN  KEY1  FWHERE  KEY2  IS  FOUND. 

*) 

(* 

RC  0 

THE  FUNCTION  RETURN  CODE. 

*) 

(* 

*) 

(* 

$COMMONS 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

$ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370 

*) 

(* 

*) 

(* 

$ EXECUTION  PROCEDURE: 

*) 

(* 

INTERNAL  MODEL  ACCESS  SOFTWARE  PROCEDURE 

*) 

(* 

*> 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

KEY1  IS  EITHER  AN  ENTITY  KEY  OR  A  LIST  KEY.  IF  KEY1  IS  A 

*) 

(* 

LIST.  THEN 

KEY2  IS  FOUND  IN  THE  LIST.  IF  KEY1  IS  AN  ENTITY 

*) 

(* 

THEN  KEY2  IS  FOUND  IN  THE  CONSTITUENT  LIST  OF  KEY1.  KEY 2 

*) 

(* 

IS  AN  ENTITY  KEY  THAT  IS  TO  BE  MATCHED. 

*) 

(* 

THE  SEARCH 

STARTS  AT  POSITION  IFIRST.  EACH  ENTITY  IN  KEY1 

*) 

(* 

IS  CHECKED 

FOR  A  MATCH  WITH  KEY2 .  IF  MATCHED,  THEN  THE 

*) 

(* 

POSITION  IS 

RETURNED  IN  IPOS.  IF  NO  MATCH,  THEN  IPOS  IS 

*) 

(* 

RETURNED  AS 

ZERO  AND  THE  RETURN  CODE  SIGNALS  AN  ERROR. 

*> 

(* 

*) 

(* 

^CHANGE  CONTROL 

• 

• 

*) 

<* 

REVISED:  05/01/86  B.  A.  ULMER  W315 

*) 
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(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  *) 


(*  CONDITION  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  *) 

(*  DEBUGGING  PURPOSES  *) 

(*  *) 

(*  REVISED:  03/25/85  E.D.  SHREVE  W315  *) 

(*  TO  CALL  RDLST  FROM  OUTSIDE  THE  WHILE  LOOP  TO  SET  THE  EOL.  *) 

(*  *) 

(*  REVISED:  08/14/86  K.M.  ROSS  W315  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  05/07/85  D.  KERCHNER  W315  *) 

(* - *) 

(**) 

(*  END  ^INCLUDE  MALFND.  *) 
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(*  %INCLUDE  MALGTK .  *) 

(**) 

PROCEDURE  MALGTK( CONST  KEY1 : ANYKEY ; CONST  IPOS:INTEGER; 


VAR  KEY2 :ENTKEY ;  VAR  RC:EXT_RET_CODE) {SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  GET  THE  NTH  KEY  FROM  A  LIST.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  KEY  OF  ENTITY  OF  LIST  OF  ENTITIES  *) 

(*  WHOSE  NTH  KEY  IS  TO  BE  GOTTEN  *) 

(*  IPOS  I  POSITION  IN  THE  LIST  WHERE  THE  TARGET  *) 

(*  ENTRY  IS  LOCATED  *) 

(*  KEY2  0  THE  KSY  OF  THE  ENTITY  AT  THE  NTH  POSITION*) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =  2  THE  ROUTINE  BLEW  IT  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  1.  IF  KEY1  IS  A  LIST,  GET  THE  IPOS  ENTRY  FROM  THE  LIST.  *) 

(*  2.  IF  KEY2  IS  AN  ENTITY,  GET  THE  IPOS  ENTRY  IN  THE  *) 

(*  CONSTITUENT  LIST  OF  KEY1.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CCNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  08/28/85  B.  A.  ULMER  FRMI  *) 
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(*  CHANGE  WHEN  KEY2  IS  SET  TO  NIL  -  BU  FIX  FOR  HANDLING  1ST  AND  *) 


(*  3RD  PARAMETERS  AS  SAME  KEY  *) 
(*  *) 
(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 
(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 
(*  *) 
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(*  7.INCLUDE  KALINS.  *) 

(**) 

PROCEDURE  MALINS(CONST  KEY1 : ANYKEY ; CONST  KEY2 : ANYKEY ; 
CONST  IPOS: INTEGER; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 


(**) 


(* 

- 

*) 

(* 

$ FUNCTION: 

*) 

(* 

INSERT  AN 

ENTITY  OR 

LIST 

INTO  A  LIST. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(  * 

NAME 

I/O 

DESCRIPTION 

*) 

\ 

(* 

KEY1 

I 

THE 

KEY  OF  ENTITY  OR  LIST 

OF  ENTITIES 

* ) 
*) 

(* 

INTO 

TO  WHICH  KEY2  IS  TO 

BE  INSERTED 

*) 

(* 

KEY2 

I 

THE 

KEY  OF  ENTITY  OR  LIST 

OF  ENTITIES 

TO  *) 

(* 

BE  INSERTED  INTO  KEY1 

*) 

(* 

IPOS 

I 

THE 

POSITION  IN  KEY1  TO  INSERT  KEY2 

*) 

(* 

(NOTE:  THE  INSERT  BEGINS 

AT  IPOS-1) 

*) 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

(* 

=  0 

OK 

*) 

(* 

>  0 

CRITICAL  ERROR 

*) 

(* 

<  0 

WARNING 

*> 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

(* 

^ENVIRONMENT : 

*) 

<* 

LANGUAGE 

:  IBM  PASCAL 

*) 

(* 

HARDWARE 

SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 


MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

1.  KEY1  AND  KEY2  MAY  BE  LIST  OR  ENTITY  KEYS. 

2.  IF  KEY1  IS  AN  ENTITY  KEY,  KEY2  IS  INSERTED  INTO  THE 
CONSTITUENT  LIST  OF  KEY1 . 

3.  IF  KEY2  IS  A  LIST  KEY,  ALL  ENTITIES  IN  THE  LIST  ARE 
INSERTED  INTO  KEY1. 

4.  THE  INSERT  TAKES  PLACE  STARTING  AT  THE  POSITION  'BEFORE' 
IPOS  IN  KEY1 . 

$ COMMENTS : 

$ CHANGE  CONTROL: 


*) 

*) 

*> 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 
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(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 
(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 
(*  TO  USER  RECOGNIZEABLE  FORM  *) 
(*  *) 
(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 
(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 
(*  *) 
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(*  7.INCLUDE  MALK.  *) 

(**) 

PROCEDURE  MALK(CONST  KIND :ORD_KIND; VAR  KEYI rLISTKEY ; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 


<*• 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

<* 

<* 

<* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 


^FUNCTION: 

CREATE  A  LIST  OF  ALL  ENTITIES  OF  A  SPECIFIED  KIND. 
^DESCRIPTION  OF  ARGUMENTS: 


NAME 

I/O 

DESCRIPTION 

KIND 

I 

KIND 

CODE  OF  A  CLASS  COLLECTOR  OR  AN 

INSTANCE  COLLECTOR 

KEYI 

0 

KEY 

OF  THE  CREATED  LIST  OF  ENTITIES 

RC 

0 

EXTERNAL  RETURN  CODE 

=  0 

OK  RETURN  CODE 

<  0 

WARNING 

>  0 

CRITICAL  ERROR 

^COMMONS: 

^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

THE  ELEMENTS  OF  THE  LIST  WILL  BE  A  CONCATENATION  OF  THE 
CONTENT  OF  EACH  ENTITY  CLASS  AS  THEY  ARE  ENCOUNTERED  IN 
THE  ENTITY  CLASS  STRUCTURE. 

$ COMMENTS: 

^CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  REOCGNIZEABLE  FORM 

REVISED:  07/11/85  B.  A.  ULMER  W315 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


.*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*> 

*) 

*) 
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(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  ORIGINATED:  04/24/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* - *) 

%PAGE  *) 

<**) 

(*  END  %INCLUDE  MALK.  *) 
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(*  ^INCLUDE  MALKC .  *) 

(**) 

PROCEDURE  MALKC(CONST  KEY1 : ANYKEY; CONST  KIND:ORD_KIND; 
VAR  KEY2 :LISTKEY; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 


(*• 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

r* 

\ 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 


^FUNCTION: 

CREATE  A  LIST  OF  AN  ENTITY  KIND  WHICH  ARE  FOUND  WITHIN 
THE  CONSTITUENT  LIST  OF  AN  ENTITY  OR  A  LIST  OF  ENTITIES. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 

KEY1  I  THE  KEY  OF  ENTITY  OR  LIST  OF  ENTITIES 

WHOSE  USER  LISTS  ARE  TO  BE  SEARCHED 


KIND 
KEY  2 

RC 


I  THE  KIND  VALUE  OF  AN  ENTITY  OR  CLASS 
0  THE  KEY  OF  THE  LIST  THAT  CONTAINS  THE 
SELECTED  ENTITIES 
0  EXTERNAL  RETURN  CODE 
=  0  OK 

>  0  CRITICAL  ERROR 
<  0  WARNING 


^COMMONS: 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


^PROCESSING  DESCRIPTION: 

1.  IF  KEY!  IS  AN  ENTKEY ,  THEN  ALL  USERS  OF  KEY1  ARE  PUT 
INTO  KEY2  THAT  ARE  OF  THE  GIVEN  KIND. 

2.  IF  KEY1  IS  A  LISTKEY,  THEN  ALL  THE  USERS  OF  EACH  ENTITY 
ON  THE  LIST  IS  PUT  INTO  KEY2  THAT  ARE  OF  THE  GIVEN  KIND 


^COMMENTS: 

$ CHANGE  CONTROL: 


ORIGINATED:  03/07/87  K.  M.  ROSS  DBMA 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 
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(A - 

(*  DATA  STRUCTURES/MAJOR  VARIABLES: 
(* - 

(* 

(*END - 

(*  END  ^INCLUDE  MALKC.  *) 

(**) 


*) 

*) 

*) 

*) 

■*) 
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(*  %INCLUDE  MALKL.  *) 

(**) 

PROCEDURE  MALKL(CONST  KEY1 : ANYKEY; CONST  KIND:ORD_KIND; 
VAR  KEY2 :LISTKEY ;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - 

(* 


(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

<* 

<* 

(* 

(* 

<* 

<* 


-*) 

*) 


(* 

^ FUNCTION: 

*) 

(* 

CREATE  A  LIST 

OF  AN 

ENTITY  KIND  WHICH  ARE  FOUND  WITHIN 

*) 

(* 

ANOTHER  LIST. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

( If 

NAME 

I/O 

DESCRIPTION 

*) 
it  \ 

V 

(* 

KEY1 

I 

THE  KEY  OF  ENTITY  OR  LIST  OF  ENTITIES 

*  ) 
*) 

(* 

WHOSE  IMMEDIATE  CONSTITUENTS  ARE  TO  BE 

*) 

(* 

SEARCHED 

*) 

(* 

KIND 

I 

THE  KIND  VALUE  OF  AN  ENTITY  OR  CLASS 

*) 

(* 

KEY2 

0 

THE  KEY  OF  THE  LIST  THAT  CONTAINS  THE 

*) 

(* 

SELECTED  ENTITIES 

*) 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

<* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

<* 

O 

(* 

$ COMMONS: 

*) 

<* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

1.  IF  KEY1  IS  AN  ENTKEY,  THEN  ALL  CONSTITUENTS  OF  KEY1 
THAT  MATCH  ON  KIND  ARE  PUT  INTO  KEY2 . 

2.  IF  KEY1  IS  A  LISTKEY,  THEN  ALL  ENTITIES  ON  KEY1  THAT 
MATCH  ON  KIND  ARE  PUT  INTO  KEY2 . 

i COMMENTS: 

^CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 


*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED:  12/10/85 

B. 

A. 

ULMER 

FRMI 

*) 

(* 

RETURN  WARNING  WHEN 

OUTPUT  LIST 

IS  NIL 

*) 

(* 

*) 

(* 

REVISED:  07/11/85 

B. 

A. 

ULMER 

FRMI 

*) 

(* 

ADD  A  NEW  PARAMETER 

TO  CNVRR 

FOR  ERROR  HANDLING  AND 

DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 
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(*  %INCLUDE  MALKU.  *) 

(**) 

PROCEDURE  MALKU (CONST  KEY1 : ANYKEY ; CONST  KIND:ORD_KIND; 

VAR  KEY2 :LISTKEY; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  CREATE  A  LIST  OF  AN  ENTITY  KIND  WHICH  ARE  FOUND  WITHIN  *) 

(*  THE  USER  LIST  OF  AN  ENTITY  OR  A  LIST  OF  ENTITIES.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  KEY  OF  ENTITY  OR  LIST  OF  ENTITIES  *) 

(*  WHOSE  USER  LISTS  ARE  TO  BE  SEARCHED  *) 

<*  *) 

(*  KIND  I  THE  KIND  VALUE  OF  AN  ENTITY  OR  CLASS  *) 

(*  KEY2  0  THE  KEY  OF  THE  LIST  THAT  CONTAINS  THE  *) 

(*  SELECTED  ENTITIES  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  1.  IF  KEY1  IS  AN  ENTKEY,  THEN  ALL  USERS  OF  KEY1  ARE  PUT  *) 

(*  INTO  KEY2  THAT  ARE  OF  THE  GIVEN  KIND.  *) 

(*  2.  IF  KEY1  IS  A  LISTKEY,  THEN  ALL  THE  USERS  OF  EACH  ENTITY  *) 

(*  ON  THE  LIST  IS  PUT  INTO  KEY2  THAT  ARE  OF  THE  GIVEN  KIND.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *> 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  *) 

(*  ORIGINATED:  03/07/87  K.  M.  ROSS  DBMA  *) 
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(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - - - *) 

(*  *) 

(*END - *) 

(*  END  XINCLUDE  MALKU.  *) 

(**) 
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(*  %INCLUDE  MALN  *) 

(**) 

PROCEDURE  MALN(CONST  LSIZE : INTEGER ; VAR  KEYL:LISTKEY ; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(* - 

(* 

(*  $ FUNCTION : 

(*  CREATE  AN  EMPTY  LIST  OF  A  SPECIFIED  SIZE. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  LSIZE  I  NUMBER  OF  ENTITIES  IN  THE  LIST 

(*  KEYL  0  INITIALIZED  TO  KEY  OF  EMPTY  LIST 

(*  RC  0  EXTERNAL  RETURN  CODE 

(*  =0  OK 

(*  >  0  CRITICAL  ERROR 

(*  <0  WARNING 

(* 

(*  ^COMMONS: 

(* 

(*  ^ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

<* 

(*  ^PROCESSING  DESCRIPTION: 

(*  A  NEW  APPLICATION  LIST  WILL  BE  CREATED,  WITH  SUFFICIENT 

(*  SPACE  TO  ACCOMODATE  'LSIZE'  ENTRIES.  ALL  ENTRIES  ARE 

(*  INITIALIZED  TO  NIL. 

<* 

(*  $ COMMENTS : 

(* 

(*  $ CHANGE  CONTROL: 

(* 

(*  REVISED:  05/01/36  B.  A.  ULMER  FRMI 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
(*  TO  USER  RECOGNIZEABLE  FORM 

(* 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
(*  PURPOSES 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*> 
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(*  %INCLUDE  MALNO.  *) 

(**) 

PROCEDURE  MALNO (CONST  KEY1 : ANYKEY; VAR  KOUNT: INTEGER; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

(*— 

— 

— 

s 

(* 

*) 

(* 

$ FUNCTION: 

*) 

(* 

COUNT  THE  ENTITIES  ON  A  LIST. 

*) 

<* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 
*  \ 

(* 

(* 

KEY1  I  THE  LIST  WHOSE  ENTRIES  ARE  TO 

BE  COUNTED 

* ) 
*) 

(* 

KOUNT  0  THE  NUMBER  OF  ENTRIES  IN  KEY1 

*) 

(* 

PC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

<* 

IF  KEY1  IS  A  LIST,  RETURN  THE  NUMBER  ON  THE  LIST. 

IF  KEY1 

*) 

(* 

IS  AN  ENTITY,  RETURN  THE  NUMBER  OF  CONSTITUENTS. 

*) 

(* 

*) 

(* 

$ COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

*> 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

FRMI 

*> 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE" 

CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

<* 

*) 

(* 

REVISED:  07/11/85  B.  A.  ULMER 

FRMI 

*> 

(* 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND 

DEBUGGING 

*) 

<* 

PURPOSES 

*) 

<* 

*) 
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(*  %INCLUDE  MALNOT.  *) 

(**) 

PROCEDURE  MALNOT(CONST  KEY1: ANYKEY; CONST  KEY2 : ANYKEY ; 

VAR  KEY3  rLISTKEY ;VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(*— 

■*) 

(* 

*) 

(* 

$ FUNCTION : 

*) 

(* 

CREATE  AN  APPLICATION  LIST  OF  ENTITIES  IN  KEY1  BUT  NOT  IN 

*) 

(* 

KEY2. 

*) 

(* 

*) 

(* 

$DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

*  'N 

(* 

KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  WHCIH  WILL  BE 

) 

*) 

(* 

'NOTED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 

(* 

KEY2  I  ENTITY  OR  LIST  OF  ENTITIES  EHICH  WILL  BE 

*) 

(* 

•NOTED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST*) 

(* 

KEY3  0  LIST  OF  ENTITIES  WHICH  KEY1  HAS  BUT  KEY2 

*) 

(* 

DOES  NOT 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

<* 

=  0  OK  RETURN  CODE 

*) 

(* 

=  1  YOU  BLEW  IT 

*) 

(* 

=  2  THE  ROUTINE  BLEW  IT 

*) 

W 

(* 

*) 

(* 

$COMMONS : 

*) 

(* 

*) 

(* 

iENVIRONMENT: 

*) 

<* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

<* 

*) 

(* 

$ EXE CUT I ON  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

THE  KEY1  LIST  IS  COMPARED  TO  THE  KEY2  LIST.  IF  AN  ENTITY 

*) 

(* 

IS  IN  THE  KEY1  LIST,  THEN  IT  IS  PUT  ON  THE  OUTPUT  KEY3 

*) 

(* 

LIST.  THE  OUTPUT  LIST  WILL  CONSIST  OF  ONLY  THOSE  ENTITIES 

*) 

(* 

FOUND  IN  KEY1  BUT  NOT  IN  KEY2 . 

*) 

(* 

*) 

<* 

^COMMENTS : 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86  B.  A.  ULMER  W315 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 
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(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUTLIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 

(*  ADDED  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 

(*  ORIGINATED:  03/09/84  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* - *) 

%PAGE  *) 

<**) 

(*  END  XINCLUDE  MALNOT.  *) 
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(*  7.INCLUDE  MALOCK  *) 

(**) 

PROCEDURE  MALOCK (VAR  LKEY: LI 5TKEY; CONST  LOCK: INTEGER; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(*— 

— 

-*) 

(* 

*) 

(* 

$ FUNCTION : 

*) 

(* 

SET  AN  APPLICATION  LIST  FOR  DELETE  OR  NON-DELETE  STATUS. 

*) 

(* 

*) 

<* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(  * 

NAME  I/O  DESCRIPTION 

*) 

<* 

LKEY  I  LISTKEY 

*  ) 

*) 

(* 

LOCK  I  INTEGER  VALUE  INDICATING  LOCK  SETTING 

*) 

(* 

=  0  SET  TO  'DELETE' 

*) 

<* 

=  1  SET  TO  'NON-DELETE' 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING  MESSAGE 

*) 

(* 

*) 

(* 

JCOMMONS: 

*) 

A 

(* 

NONE 

*) 

W 

(* 

*) 

<* 

$ ENVIRONMENT : 

*) 

<* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

$ EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE. 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*> 

(* 

SETS  A  FLAG  IN  THE  INPUT  LIST  TO  DELETE  OR  NON-DELETE. 

*> 

(* 

*) 

(* 

^COMMENTS : 

*> 

(* 

THE  DELETE/NON-DELETE  STATUS  AFFECTS  ONLY  THE  MALDA  AND 

*) 

(* 

MALDI  INTERFACE  ROUTINES.  THESE  ROUTINES  WILL  CHECK  THE 

*) 

(* 

STATUS  AND  NOT  DELETE  THE  LIST  IF  STATUS  =  1.  ALL  OTHER 

*) 

(* 

DELETE  FUNCTIONS  (EG.  MALD)  DO  NOT  CHECK  THE  STATUS  WHEN 

*) 

(* 

DELETING. 

*) 

(* 

*> 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

*) 

<* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

*) 

(* 

TO  USER  RECOGNIZEABLE  FORM 

*) 
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(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  04/23/85  E.  D.  SHREVE  *) 

(*  *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  MALOCK  *) 


Cl  PS560240032U 
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(*  %INCLUDE  MALOR  *) 


(**) 

PROCEDURE  MALOR(CONST  KEY 1 : ANYKEY ; CONST  KEY2 : ANYKEY ; 
VAR  KEY3 :LISTKEY ;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 
t  * 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

c* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

<* 


$ FUNCTION : 

CREATE  AN  APPLICATION  LIST  FROM  A  BOOLEAN  ’OR’  ON  TWO 
INPUT  LISTS. 


^DESCRIPTION  OF 
NAME 


ARGUMENTS : 

I/O  DESCRIPTION 


KEY1 

KEY2 

KEY3 

RC 


I  ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE 
'ORED'  -  IF  ENTITY,  USE  CONSTITUENT  LIST 
I  ENTITY  OR  LIST  OF  ENTITIES  WHICH  WILL  BE 
'ORED*  -  IF  ENTITY,  USE  CONSTITUENT  LIST 
0  LIST  OF  ENITIES  WHICH  ARE  EITHER  IN  KEY1 
OR  KEY2 

0  EXTERNAL  RETURN  CODE 
=  0  OK  RETURN  CODE 
<  C  WARNING 
>  0  CRITICAL  ERROR 


$ COMMONS : 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 


^PROCESSING  DESCRIPTION: 

KEY1  AND  KEY2  MAY  BE  EITHER  ENT KEYS  OR  LISTKEYS. 

IF  KEY1  IS  AN  ENTITY  KEY,  THEN  ITS  CONSTITUENT  LIST  WILL  BE 
'OR' ED  WITH  KEY2 . 

IF  KEY2  IS  AN  ENTITY  KEY,  THEN  ITS  CONSTITUENT  LIST  WILL  BE 
•OR 'ED  WITH  KEY1. 

CREATE  AN  APPLICATION  LIST,  KEY3 ,  CONTAINING  ALL  ENTITIES 
IN  EITHER  OR  BOTH  OF  TWO  INPUT  LISTS. 


^COMMENTS: 

$ CHANGE  CONTROL: 


■*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

C*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  05/15/85  B.  A.  ULMER  W315  *) 

(*  FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  W315  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

<*  *) 

(*  ORIGINATED:  03/09/85  D.  J.  KERCHNER  W315  *) 

(*  *) 

(* - *) 

%PAGE  * ) 

(**) 

(*  END  7.INCLUDE  MALOR  *) 
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(*  7.INCLUDE  MALRD  *) 

(**) 

PROCEDURE  MALRD (CONST  KEY1 : ANYKEY; VAR  KEY2 :ENTKEY ; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  READ  THE  NEXT  ENTRY  IN  A  DIRECTED  LIST.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  KEY  OF  THE  DIRECTED  LIST  TO  BE  READ  *) 

(*  KEY2  0  KEY  OF  THE  ENTITY  READ  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $ COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THE  LIST  IS  READ  IN  THE  DIRECTION  AS  SET  BY  MALSTF  OR  *) 

(*  MALSTR.  IF  KEY1  IS  AN  ENTKEY  THEN  THE  NEXT  CONSTITUENT  *) 

(*  IS  READ.  IF  KEY1  IS  AN  APPLICATION  LIST  THE  NEXT  ENTITY  *) 

(*  IS  READ.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 
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(*  %INCLUDE  MALRDE.  *) 

(**) 

PROCEDURE  MALRDE (CONST  KEYL:LISTKEY ; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(*— 

— 

-*> 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

REMOVE  DUPLICATE  ENTRIES  IN  A  LIST. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

*  ^ 

v* 

(* 

KEYL  I  THE  KEY  OF  THE  LIST  WHOSE 

DUPLICATE 

) 

*) 

(* 

ENTITIES  WILL  BE  REMOVED 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

<* 

$ COMMONS: 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

# 

(* 

LANGUAGE;  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*)  ! 

<* 

ANY  DUPLICATE  ENTITIES  FOUND  IN  THE  INPUT  LIST  WILL  BE 

*> 

(* 

REMOVED.  THE  CHANGE  IS  MADE  IN-PLACE. 

*) 

(* 

CALLS  ELDNL  IN  THE  NDS  PACKAGE. 

*> 

(* 

*) 

(* 

^COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*> 

<* 

*> 

(* 

REVISED:  05/01/86  B.  A.  ULMER 

FRMI 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 

*) 

<* 

TO  USER  RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED:  07/11/85  B.  A.  ULMER 

FRMI 

*) 

(* 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING 

AND  DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 

• 
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(*  %INCLUDE  MALREP  *) 

(**) 

PROCEDURE  MALREP (CONST  KEY1: ANYKEY; CONST  KEY2: ANYKEY; 

VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 

<**) 

(*— 

-*) 

(* 

*) 

(* 

$ FUNCTION: 

*) 

(* 

REPLACE  A  LIST.  IF  KEY1  IS  AN  ENTITY,  THEN  REPLACE  THE 

*) 

(* 

CONSTITUENT  LIST  OF  THAT  ENTITY. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(  ★ 

NAME  I/O  DESCRIPTION 

*) 

< 

(* 

KEY1  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES*) 

(* 

TO  BE  REPLACED  -  IF  AN  ENTITY,  THEN 

*) 

(* 

USE  THE  CONSTITUENT  LIST  OF  KEY1 

*) 

(* 

KEY2  I  THE  KEY  OF  THE  ENTITY  OR  LIST  OF  ENTITIES*) 

(* 

TO  REPLACE  KEY1  -  IF  AN  ENTITY,  THEN 

*) 

(* 

USE  THE  CONSTITUENT  LIST  OF  KEY1 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

A 

(* 

<  0  WARNING 

*) 

w 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

(* 

$ ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

<* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

$ EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

<* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

KEY1  MAY  BE  EITHER  AN  ENTITY  KEY  OR  A  LIST  KEY. 

*) 

(* 

IF  KEY1  IS  A  LIST  KEY,  THEN  KEY2  REPLACES  KEY1 . 

*) 

(* 

IF  KEY1  IS  AN  ENTITY,  THEN  THE  CONSTITUENT  LIST  OF  KEY1  IS 

*) 

(* 

REPLACED  BY  KEY2 . 

*) 

(* 

KEY2  MAY  BE  EITHER  AN  ENTITY  KEY  OR  A  LIST  KEY. 

*) 

<* 

IF  KEY2  IS  A  LIST  KEY,  THEN  KEY2  REPLACES  KEY1 . 

*) 

<* 

IF  KEY 2  IS  AN  ENTITY,  THEN  THE  CONSTITUENT  LIST  OF  KEY 2 

*) 

(* 

REPLACES  KEY1. 

*) 

<* 

*) 

(* 

$ COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

*) 
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(* 

REVISED: 

05/01/86 

B.  A.  ULMER 

FRMI 

*) 

(* 

ADDED  A 

CALL  TO  CNVOSP  TO 

CONVERT  AN  "OUT  OF  SPACE" 

CONDITION 

*) 

(* 

TO  USER 

RECOGNIZEABLE  FORM 

*) 

(* 

*) 

(* 

REVISED: 

10/30/85 

B.  A.  ULMER 

FRMI 

*) 

(* 

TAKE  OUT  CHECK  OF  DELETE 

RULES 

*) 

(* 

*) 

(* 

REVISED: 

09/05/85 

B.  A.  ULMER 

FRMI 

*> 

(*  ADDED  NEW  PARAMETERS  TO  FNDURUL  FOR  THE  TWO  NEW  DELETE  RULES.  *) 

(*  *) 


(* 

(* 

(* 

(* 

<* 

(* 

<* 


REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
PURPOSES  *) 

*) 

REVISED:  08/14/86  K.  M.  ROSS  DBMA  *) 

ADDED  A  NIL  POINTER  CHECK  KEY1  *) 

*) 
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(*  %INCLUDE  MALRMV  *) 

(**) 

PROCEDURE  MALRMV( CONST  KEY1 : ANYKEY; CONST  IPOS :LISTINDX; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(* - 

(* 

(* 

(* 

(* 

<* 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*> 

*) 

*) 

*) 


(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 


^FUNCTION: 

REMOVE  AN  ENTITY  FROM  A  LIST. 
^DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME  I/O 

DESCRIPTION 

KEY1  I 

THE  KEY  OF  ENTITY  OF 

LIST 

OF  ENTITIES 

(* 

WHICH  AN  ENITTY  WILL 

BE  REMOVED 

(* 

IPOS  I 

THE  POSITION  IN  KEY1 

LIST 

WHICH  THE 

(* 

ENTITY  WILL  BE  REMOVED 

(* 

RC  0 

EXTERNAL  RETURN  CODE 

(* 

=  0  OK 

(* 

>  0  CRITICAL  ERROR 

<* 

<  0  WARNING 

(* 

(* 

$  COMMONS: 

(* 

(* 

^ENVIRONMENT: 

(* 

LANGUAGE:  IBM  PASCAL 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(* 

^EXECUTION  PROCEDURE: 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

<* 

(* 

^PROCESSING  DESCRIPTION 

l 

(* 

1.  KEY1  MAY  BE  AN 

ENTITY  OR  LIST  KEY. 

2.  IF  KEY1  IS  A  LIST  KEY,  THEN  AN  ENTITY  IS  REMOVED 
FROM  THE  LIST. 

3.  IF  KEY1  IS  AN  ENTITY  KEY,  THEN  AN  ENTITY  IS  REMOVED 
FROM  THE  CONSTITUENT  LIST  OF  KEY1 .  THE  DELETE  RULES 
FOR  KEY1  ARE  TESTED  TO  INSURE  THAT  THE  REMOVAL  FROM 
KEY1  IS  PERMITTED. 

4.  IPOS  IS  THE  POSITION  NUMBER  OF  THE  ENTITY  TO  BE 
REMOVED . 

$ COMMENTS : 

$ CHANGE  CONTROL: 
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(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AAN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  09/05/85  B.  A.  ULMER  FRMI  *) 

(*  ADDED  NEW  PARAMETERS  TO  FNDURUL  FOR  THE  TWO  NEW  DELETE  RULES.  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNYRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  10/31/84  D.  J.  KERCHNER  FRMI  *) 

(*  INITIALIZED  THE  POSITION  TO  AN  ARBITRARY  #100  FOR  THE  DELRLST  *) 

(*  AND  DELPLST  CALLS  *) 

(*  *) 

(*  REVISED:  02/06/85  E.  D.  SHREVE  FRMI  *) 

(*  TEST  FOR  INVALID  IPOS  ARGUMENT  *) 

(*  *) 

(*  ORIGINATED:  06/28/84  E.  D.  SHREVE  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  MALRMV  *) 

(**) 
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(*  ^INCLUDE  MALROR  *) 

(**) 

PROCEDURE  MALROR (VAR  KEYLrLISTKEY ;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 


(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  REORDER  THE  APPLICATION  LIST  IN  USER  CONSTITUENT  ORDER  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

<*  NAME  I/O  DESCRIPTION  *) 

(*  KEYL  I/O  LIST  TO  BE  REORDERED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 
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(*  ^INCLUDE  MALRORI  *) 

(**) 

PROCEDURE  MALRORI (VAR  KEYL:LISTKEY ;VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


(**) 

(* - *) 

(*  *) 

(*  $  FUNCTION :  *) 

(*  REORDER  THE  APPLICATION  LIST  IN  INCLUSIVE  USER  TO  *) 

(*  CONSTITUENT  ORDER  *) 

<*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYL  I/O  LIST  TO  BE  REORDERED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  $ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGLR  GROUP_ID  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  *) 

(*  ORIGINATED:  10/14/86  K.M.  ROSS  DBMA  *) 

(*  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  XINCLUDE  MALRORI  *) 

(**) 
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(*  %INCLUDE  MALRPL.  *) 

(**) 

PROCEDURE  MALRPL(CONST  KEY1: ANYKEY; CONST  KEY2  :ENTKEY; 

CONST  IPOS :LISTPSTN; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  REPLACE  AN  ENTITY  IN  A  LIST.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  KEY  OF  AN  ENTITY  OR  LIST  OF  ENTITIES  *) 

(*  WHICH  WILL  BE  REPLACED  *) 

(*  KEY2  I  KEY  OF  THE  ENTITY  TO  BE  MOVED  INTO  KEY1  *) 

(*  IPOS  I  THE  POSITION  IN  KEY1  WHERE  KEY2  IS  TO  BE  *) 

(*  PLACED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

<*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  1.  KEY1  MAY  BE  AN  ENTITY  OR  LIST  KEY.  *) 

(*  *) 

(*  2.  IF  KEY1  IS  AN  ENTITY  KEY,  THEN  KEY2  WILL  REPLACE  THE  *) 

(*  ENTITY  AT  IPOS  IN  KEYl’S  CONSTITUENT  LIST.  *) 

<*  *) 

(*  3.  THE  KEY  AT  IPOS  POSITION  IN  THE  LIST  IS  REPLACED.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  IF  THE  ENTITY  BEING  REPLACED  IN  A  CONSTITUENT  LIST  IS  *) 

(*  'MARKED  FOR  DELETE ' ,  THEN  AN  ATTEMPT  WILL  BE  MADE  TO  *) 

(*  DELETE  THE  ENTITY.  *) 

(*  *) 

(*  ^CHANGE  CONTROL:  *) 
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(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

<* 

(* 

<* 

(* 

(* 


REVISED:  05/01/86  B.  A.  ULMER  FRMI 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 

REVISED:  03/20/86  B.  A.  ULMER  FRMI 

CHANGE  DELRLST  TO  INDLST  AND  DELPLST  WHEN  TRYING  TO  REMOVE 
THE  USER  KEY  FROM  THE  REPLACED  ENTITY’S  USER  LIST 

REVISED:  08/  /85  L.  J.  BEHAN  FRMI 

ADD  NEW  PARAMETER  TO  DELRUL,  DELENTY  TO  HANDLE  APPLICATION 

LIST  FOSITION  PROBLEM 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  MALRRI  *) 

(**> 

PROCEDURE  MALRRI (VAR  KEYL:LISTKEY ;VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - 

(* 

(*  $ FUNCTION : 

(*  REORDER  THE  APPLICATION  LIST  IN  INCLUSIVE  USFR  TO 

(*  CONSTITUENT  ORDER 

<* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==  =  =  = 

=  =  - 

(* 

KEYL 

I/O 

LIST  TO  BE  REORDERED 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

=  0  OK 

(* 

>  0  CRITICAL  ERROR 

(* 

<  0  WARNING 

(* 

<* 

^COMMONS: 

(* 

(* 

$ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

<* 

(*  $ EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(* 

(*  ^COMMENTS: 

(* 

(*  ^CHANGE  CONTROL: 

(* 

(*  REVISED:  MM/DD/YY  CCRR  I.  M.  THECHANGER  GROUP_ID 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE. 

(* 

(*  ORIGINATED:  10/14/86  K.M.  ROSS  DBMA 

(* 

(* - 

(*  DATA  STRUCTURES /MAJOR  VARIABLES: 

(* - 

<* 

(*END - 

(*  END  %INCLUDE  MALRRI  *) 

(**) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 
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(*  ^INCLUDE  MALRST  *) 

(**) 

PROCEDURE  MALRST(CONST  KEYE :LISTKEY ; 

VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - 

— 

-*) 

(* 

*) 

(* 

$ FUNCTION : 

*) 

(* 

REMOVES  ALL  ENTITIES  FROM  AN  APPLICATION  LIST 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

V 

(* 

KEYE  I  LIST  KEY 

K ) 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING  MESSAGE 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

NONE 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

1 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

<* 

^EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE. 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

GIVEN  AN  APPLICATION  LIST  ALL  ENTITIES  ARE  REMOVED  LEAVING 

*) 

(* 

THE  LIST  SIZE  INTACT 

*) 

(* 

*) 

(* 

^COMMENTS: 

*) 

<* 

THIS  PROCEDURE  DEVELOPED  SPECIFICALLY  FOR  THE 

IDB  PACKAGE 

*) 

(* 

BUT  IS  FUNCTIONAL  FOR  ALL  APPLICATIONS. 

*) 

(* 

*> 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

*> 

(* 

*) 

(* 

ORIGINATED:  08/14/87  K.  M.  ROSS 

*> 

(* 

*) 

(* 

*) 

(*END - 

-*) 

(*  END  %INCLUDE  MALRST  *) 

• 

3-820 

Cl  PS560240032U 
April  1990 


(*  ^INCLUDE  MALRVS .*) 

<**) 

PROCEDURE  MALRVS (VAR  KEYA : ANYKEY ;  VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  REVERSE  THE  ORDER  OF  THE  INPUT  LIST.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYA  I/O  A  LIST  OR  ENTITY  KEY  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  *) 

(*  ^COMMONS:  *) 

( *  NONE  * ) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  IF  THE  INPUT  KEY  IS  AN  APPLICATION  LIST,  THE  LIST  IS  *) 

(*  REVERSED.  IF  THE  INPUT  IS  AN  ENTITY,  THE  CONSTITUENT  *) 

(*  LIST  OF  THE  ENTITY  IS  REVERSED.  *) 

(*  *) 

(*  $COMMENTS :  *) 

(*  NONE  *) 

(*  *) 

(*  $Ch/.NGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

<*  TO  USER  RECOGNIZEABLE  FORM  *) 

<*  *) 

<*  ORIGINATED:  04/11/86  MAS 2  E.  D.  SHREVE  W315  *) 

<*  *) 

(* - *) 

(*END - *) 

(*  END  XINCLUDE  MALRVS.  *) 
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(*  %INCLUDE  MALSRT  *) 

(**) 

PROCEDURE  MALSRT (CONST  KEY : ANYKEY ;  CONST  PROCNAME: ROUTINE; 
VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


(**) 

(*-- 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

c* 

(* 

(* 

<* 

(* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(*-- 


- *) 

*) 

$ FUNCTION:  GIVEN  THE  USER  DEFINED  ORDER  FUNCTION  THE  LIST  PASSED*) 


IN  AS  INPUT  WILL  BE  SORTED  USING  THIS  FUNCTION  *) 

*) 

$DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

KEY  I  THE  KEY  OF  THE  ENTITY  OR  APPLICATION  LIST*) 

OF  ENTITIES  TO  BE  SORTED  *) 

PROCNAME  I  THE  NAME  OF  THE  USER  DEFINED  FUNCTION  *) 

FOR  THE  ORDERING  OF  THE  LIST  *) 

RC  0  EXTERNAL  RETURN  CODE  *) 

=  0  OK  *) 

>  0  CRITICAL  ERROR  *) 

<  0  WARNING  *) 

*) 

$ COMMONS:  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

^EXECUTION  PROCEDURE:  *) 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

THE  USER  SENDS  IN  THE  ORDER  FUNCTION,  THEN  THIS  ROUTINES  *) 

REFERENCES  THE  USER  DEFINED  FUNCTION  TO  ACT  UPON  THE  ENTITIES*) 
BEING  SORTED.  *) 

*) 

$ COMMENTS:  *) 

*) 

i CHANGE  CONTROL:  *) 

*) 

REVISED:  MM/DD/YY  I  M  THECHANGER  GROUP  *) 

REASON  FOR  CHANGING  THE  ROUTINE  *) 

*) 

ORIGINATED:  04/  /86  B.  A.  ULMER  FRMI  *) 


*) 

■*) 
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<* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  ^INCLUDE  MALSRT  *) 

(**) 
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(*  %INCLUDE  MALSTF  *) 

(**) 

PROCEDURE  MALSTF (CONST  KEY1: ANYKEY; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 
<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  INITALIZE  FOR  READING  A  DIRECTED  LIST  IN  FORWARD  ORDER.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  KEY  OF  AN  ENTITY  OR  LIST  OF  ENTITIES  *) 

(*  WHOSE  READ  DIRECTION  WILL  BE  SET  TO  *) 

(*  FORWARD  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  IF  KEY1  IS  AN  ENTITY  THEN  THE  CONSTITUENT  LIST  OF  KEY1  *) 

(*  WILL  BE  INITIALIZED.  IF  KEY1  IS  A  LISTKEY  THEN  THE  LIST  *) 

(*  POINTED  TO  WILL  BE  INITIALIZED.  IN  EITHER  CASE  THE  *) 

(*  < .POSITION)  ELEMEMT  IS  SET  TO  THE  VALUE  1  AND  THE  *) 

(*  < .DIRECTION)  ELEMENT  IS  SET  TO  THE  VALUE  < FORWARD > .  *) 

(*  *) 

(*  $ COMMENTS :  *) 

(*  USES  NDS  FUNCTION  LSTLNM.  *) 

('*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE”  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 
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(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 

(*  *) 

(*  REVISED:  08/14/86  K.  M.  ROSS  DBMA  *) 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1  *) 

(*  *) 
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(*  7.INCLUDE  MALSTR  *) 

(**) 

PROCEDURE  MALSTR(CONST  KEY1 : ANYKEY; VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - 

(* 

(*  $ FUNCTION : 

(*  INITALI2E  FOR  READING  A  DIRECTED  LIST  IN  REVERSE  ORDER. 

(*  MAS  INTERFACE  PACKAGE. 

(* 


(* 

^DESCRIPTION  OF 

ARGUMENTS : 

(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEY1 

I 

THE  KEY  OF  AN  ENTITY 

OR  LIST 

OF  ENTITIES 

(* 

WHSOE  READ  DIRECTION 

WILL  BE 

SET  TO 

(* 

REVERSE 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(* 

=  0  OK 

(* 

>  0  CRITICAL  ERROR 

(* 

<  0  WARNING 

(* 

(*  ^COMMONS: 

(* 

(*  ^ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

C*  IF  KEY1  IS  AN  ENTITY  THEN  THE  CONSTITUENT  LIST  OF  KEY1 

(*  WILL  BE  INITIALIZED.  IF  KEY1  IS  A  LISTKEY  THEN  THE  LIST 

(*  POINTED  TO  WILL  BE  INITIALIZED.  IN  EITHER  CASE  THE 

(*  < .POSITION)  ELEMEMT  IS  SET  TO  THE  LENGTH  OF  THE  LIST  AND 

(*  THE  < .DIRECTION)  ELEMENT  IS  SET  TO  THE  VALUE  < REVERSE) . 

(* 

(*  ^COMMENTS: 

(*  USES  NDS  FUNCTION  LSTLNM. 

(* 

(*  $ CHANGE  CONTROL: 

(* 

(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
(*  TO  USER  RECOGNIZEABLE  FORM 
(* 

(*  REVISED:  08/14/86  K.  M.  ROSS  DBMA 

(*  ADDED  A  NIL  POINTER  CHECK  FOR  KEY1 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  XINCLUDE  MALXEQ  *) 

(**) 

PROCEDURE  MALXEQ (CONST  KEY1 : ANYKEY ; VAR  DATAREC : BLKDATA ; 

CONST  PROCNAME: ROUTINE; VAR  KEY2 :LISTKEY ;VAR  RCC:EXT_RET_CODE; 
VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 


(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  EXECUTE  A  PROCEDURE  ON  AN  ENTITY,  OR  A  LIST  OF  ENTITIES.  *) 

(*  CONSTRUCT  AN  OUTPUT  LIST  OF  ENTITIES  AS  DETERMINED  BY  THE  *) 

(*  APPLICATION  PROCEDURE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENITIY  OR  LIST  OF  ENTITIES  TO  BE  *) 

(*  PROCESSED  *) 

(*  DATAREC  I/O  APPLICATION  DEFINED  DATA  STRUCTURE  WHICH  *) 

(*  EITHER  SUPPLIES  OR  RECIEVES  VALUES  *) 

(*  OPERATED  ON  BY  THE  APPLICATION  PROCEDURE  *) 

(*  PROC  I  ENTRY  POINT  OF  APPLICATION  DEFINED  *) 

(*  PROCEDURE  *) 

(*  KEY2  0  KEY  OF  THE  LIST  CREATED  *) 

(*  FOR  THIS  ROUTINE  *) 

(*  RCC  0  USER  DEFINED  PROCEDURE  RETURN  CODE  *) 

(*  =  0,1  OK  RETURN  CODE  *) 

(*  =2-7  PROCEDURE  WARNING  CODE  *) 

(*  =  8-15  PROCEDURE  ERROR  CODE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *> 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  THE  USER  SENDS  IN  THE  NECESSARY  INFORMATION,  THEN  THIS  *) 

(*  ROUTINE  REFERENCES  THE  USER'S  SPECIFIED  PROCEDURE  TO  ACT  *) 
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(* 

UPON  THE  INFORMATION 

HE  HAS  SUPPLIED  TO  THE 

PROCEDURE. 

*> 

<* 

*) 

(* 

^COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86 

B.  A.  ULMER 

W315 

*) 

(* 

ADDED  A  CALL  TO  CNVOSP 

TO  CONVERT  AN  "OUT  OF 

SPACE"  CONDITION 

*) 

(* 

TTO  USER  RECOGNIZEABLE 

FORM 

*) 

(* 

*) 

(* 

REVISED:  01/20/86 

B.  A.  ULMER 

W315 

*) 

(* 

ADD  CAPABILITY  TO  READ 

THE  INPUT  LIST  IN  REVERSE  IN  ORDER 

*) 

(* 

TO  PROCESS 

*) 

(* 

*) 

(* 

REVISED:  07/11/85 

B.  A.  ULMER 

W315 

*) 

(* 

ADD  A  NEW  PARAMETER  TO 

CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 

*) 

(* 

PURPOSES 

*) 

(* 

*) 

(* 

REVISED:  05/15/85 

B.  A.  ULMER 

W315 

*) 

(* 

FIX  INCONSISTENCY  IN  OUTPUT  LIST  PROCESSING 

*) 

(* 

*) 

(* 

REVISED:  03/06/85 

B.  A.  ULMER 

W315 

*) 

(* 

FIX  APPLICATION  LIST  PROBLEM 

*) 

(* 

*) 

(* 

REVISED:  11/28/84 

D.  J.KERCHNER 

W315 

*) 

(* 

MALXEQ  MADE  FROTRAN  CALLABLE  BY  USING  INTERMEDIATE  ASSEMBLER 

*) 

<* 

ROUTINE  (PASASM) 

*) 

(* 

*> 

(* 

ORIGINATED:  04/24/84 

D,  J.  KERCHNER 

W315 

*) 

(* 

*) 

(*— 

— 

-*) 

XPAGE 

*) 

(**) 

(*  END  7.INCLUDE  MALXEQ  *) 
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(*  7.INCLUDE  MAQURY  *) 

(**) 

PROCEDURE  MAQURY(CONST  KEY1 :ENTKEY ;  CONST  FLGNAME : NAMTYP ;  VAR 
FLGVAL: INTEGER;  VAR  RC:EXT_RET_CODE) ; SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DESCRIPTION  OF  WHAT  THIS  ROUTINE  DOES.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENTITY  WHOSE  SPECIFIED  FLAG  VALUE  IS  TO  *) 

(*  DETERMINED  *) 

(*  FLGNAME  I  FLAG  NAME  (STRING(6))  *) 

(*  FLGVAL  0  VALUE  OF  THE  SPECIFIED  FLAG  *) 

(*  =1  TRUE  *) 

(*  =0  FALSE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  DETERMINE  WHICH  APPLICATION  ACCESSIBLE  FLAG'S  VALUE  IS  TO  *) 

(*  BE  GOTTEN  AND  THEN  GET  THE  FLAG  VALUE  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/86  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 
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(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 


(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  05/21/85  B.  A.  ULMER  W315  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(*  END  %INCLUDE  MAQURY  *) 
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(*  %INCLUDE  MARDLT  *) 

(**) 

PROCEDURE  MARDLT (CONST  KIND :ORD_KIND ;VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 
%PAGE 


<*- 

(* 

(* 

(* 

(* 

(* 

(* 


$ FUNCTION : 

THIS  SUBPROGRAM  REMOVES  THE  RUNTIME  SUBSCHEMA  FROM  A 
PARTICULAR  KIND  IN  THE  WORKING  FORM 


^DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(•' 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(*- 

(* 


<  0  WARNING 
=  0  OK 

>  0  CRITICAL  ERROR 

$ COMMONS: 

$ ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

^COMMENTS: 

$ CHANGE  CONTROL: 

ORIGINATED:  03/07/87  K.  M.  ROSS 


W315 


END  XINCLUDE  MARDLT  *) 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

NAME 

I/O 

DESCRIPTION 

*) 

(* 

==== 

=== 

ii 

ii 

n 

ii 

n 

ii 

n 

ii 

ii 

n 

ii 

*) 

(* 

(* 

KIND 

I 

KIND  VALUE  FOR  WHICH  THE  SUBSCHEMA 
DEFINITION  WILL  BE  DELETED 

*) 

*) 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

--*) 
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(*  ^INCLUDE  MARSGT  *) 

(**) 

PROCEDURE  MARSGT(CONST  KIND:ORD_KIND;  VAR  SCHPTR:T_SCHEMA_PO INTER; 
VAR  RC : EXT_RET_CODE ) ; SUBPROGRAM ; 


%PAGE 
(* - 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

c* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

(*- 

<* 


^FUNCTION: 

^DESCRIPTION  OF  ARGUMENTS: 


NAME 


KIND 


SCHPTR 


RC 


I/O  DESCRIPTION 

I  KIND  VALUE  FOR  WHICH  THE  SUBSCHEMA 
DEFINITION  WILL  BE  CREATED 
I/O  KEY  TO  THE  DATA  DEFINING  THE  SUBSCHEMA  TO*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


BE  CREATED 

EXTERNAL  RETURN  CODE 
<  0  WARNING 
=  0  OK 

>  0  CRITICAL  ERROR 


$ COMMONS: 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

^PROCESSING  DESCRIPTION: 

$ COMMENTS: 

$ CHANGE  CONTROL: 

REVISED:  05/01/86  B.  A.  ULMER  W315 

ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION 
TO  USER  RECOGNIZEABLE  FORM 


ORIGINATED:  10/18/85 


B.  A.  ULMER 


W315 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

--*) 


END  %INCLUDE  MARSGT  *) 
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(*  %INCLUDE  MASALOC  *) 

(**) 

PROCEDURE  MASALOC(CONST  SIZE : INTEGER ;  VAR  REGVAL: POINTER; 
VAR  RC : INTEGER) ;FORTRAN; 

(**) 

(*  END  %INCLUDE  MASALOC  *) 


3-833 


Cl  PS560240032U 
April  1990 


(*  %INCLUDE  MASDSP  *) 

(**) 

PROCEDURE  MASDSP(  VAR  ENT_PTR *  POINTER; 

CONST  TYPEJSIZE:  INTEGER) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  DISPOSE  OF  A  MAS  DYNAAMICALLY  ALLOCATED  MEMORY  AREA.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TYPE_SIZE  I  THE  SIZE  OF  THE  AREA  TO  BE  DISPOSED  *) 

(*  ENT_PTR  I  POINTER  TO  THE  MEMORY  AREA  TO  BE  DISPOSED*) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

<*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  $PCMGR  HOLDS  THE  DESCRIPTORS  FOR  THE  MAS  MEMORY  AREAS.  *) 

(*  *) 

C*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  DELETE  A  BLOCK  AND  COMBINE  IT  WITH  ANY  CONIIGIOUS  BLOCKS  *) 

(*  OF  FREED  MEMORY.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $  CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  02/06/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  CODE  TO  HANDLE  WHEN  THE  8K  OVERFLOW  BLOCK  NEEDS  FREED  *) 

(*  (JUST  REMOVE  IF  FROM  THE  BLOCK  CHAIN  AND  SET  OVERFLOW  FLAG  TO  *) 

(*  FALSE)  *) 

(*  *) 

(*  REVISED:  08/  /85  B.  A.  ULMER  FRMI  *) 

(*  FIX  BUG  DEALING  WITH  THE  PRESENCE  OF  AN  INFINITE  LOOP  *) 

(*  *) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ELIMINATE  THE  LEAVE  AND  MAX  FUNCTIONS  FOR  BETTER  COMPATABILITY  *) 
(*  WITH  THE  DEC  VAX  *) 

(*  *) 

(*  ORIGINATED:  12/10/84  J.  J.  JOHNSON  FRMI  *) 

<*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  MASDSP  *) 

(**) 
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(*  %INCLUDE  MASMSZ  *) 

(**) 

PROCEDURE  MASMSZ(VAR  MODSIZ : INTEGER;  VAR  FRESIZ : INTEGER ; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  RETURNS  THE  ACTUAL  MODEL  SPACE  USED  AND  THE  AMOUNT  OF  *) 

(*  FREE  SPACE  IN  THE  ALLOCATED  MEMORY  BLOCKS  OF  THE  MODEL.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  MODSIZ  0  TOTAL  BYTES  OF  USED  MODEL  SPACE  *) 

(*  FRESIZ  0  TOTAL  BYTES  OF  FREE  SPACE  IN  THE  *) 

(*  ALLOCATED  MODEL  BLOCKS.  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NONE  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  USED  ONLY  WITH  THE  MAS  MEMORY  MANAGER.  CAN  NOT  BE  USED  *) 

(*  WITH  THE  PASCAL  MEMORY  MANAGER.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CALLS  THE  INTERNAL  MAS  ROUTINES  THAT  CALCULATE  FREESPACE  *) 

(*  AND  MODEL  SPACE  USING  THA  MAS  MEMORY  MANAGER  CONTROL  BLOCKS.*) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  IF  THIS  PROCEDURE  IS  TO  BE  USED  WITH  THE  PASCAL  MEMORY  *) 

.  (*  MANAGER,  THEN  A  SPECIAL  PROCEDURE  'NDSFCT '  IS  REQUIRED.  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  05/01/S6  B.  A.  ULMER  W315  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 
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(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  ORIGINATED:  04/09/85  E.  SHREVE  W315  *) 

(*  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  XINCLUDE  MASMSZ  *) 
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(*  %INCLUDE  MASNEW  *) 

(**) 

PROCEDURE  MASNEW(  VAR  ENT_PTR :  POINTER; 

CONST  TYPE_SIZE:  INTEGER; 

VAR  RR:  RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

<*  *> 

(*  $ FUNCTION:  *) 

(*  ALLOCATES  A  NEW  DYNAMIC  MEMORY  AREA  FOR  MAS  ELEMENTS.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  TYP_S I ZE  I  THE  SIZE  OF  THE  MEMORY  REGION  REQUIRED  *) 

(*  ENTJPTR  0  POINTER  TO  THE  AREA  OBTAINED  *) 

(*  RR  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <  0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  $PCMGR  HOLDS  THE  DESCRIPTORS  FOR  THE  MAS  MEMORY  SPACE.  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  ATTEMPTS  TO  LOCATE  A  FREE  SPACE,  STARTING  AT  THE  FIRST  *) 

(*  ALLOCATED  REGION,  AND  CONTINUES  THRU  ALL  ALLOCATED  REGIONS.  *) 

(*  IF  FOUND,  IT  REMOVES  THE  REGION  FROM  THE  FREE  SPACE  CHAIN.  *) 

(*  IF  NO  SPACE  EXISTS,  IT  ALLOCATES  A  NEW  REGION  AND  CONNECTS  *) 

(*  THE  NEW  REGION  TO  THE  LAST.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  02/06/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  CODE  TO  HANDLE  A  FAILURE  ON  GETMAIN  IN  ROUTINE  MASALOC  *) 

(*  AND  PROCESSING  OF  8K  OVERFLOW  BLOCK  *) 

(*  *) 
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(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ELIMINATE  THE  LEAVE  AND  MAX  FUNCTIONS  TO  BETTER  COMPATIBILITY  *) 
(*  WITH  THE  DEC  VAX  *) 

(*  *) 

(*  ORIGINATED:  12/10/84  J.  J.  JOHNSON  FMRI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(*END - *) 

(*  END  XINCLUDE  MASNEW  *) 

(**) 
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(*  %INCLUDE  MASOVR  *) 

(**) 

PROCEDURE  MASOVR (  CONST  $IZE:  INTEGER;  VAR  ENT_PTR:  POINTER; 

VAR  OSPACE:  $CBP) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  *) 

C*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  $PCMGR  HOLDS  THE  DESCRIPTORS  FOR  THE  MAS  MEMORY  AREAS.  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ELIMINATE  THE  LEAVE  AND  MAX  FUNCTIONS  FOR  BETTER  COMPATABILITY  *) 
(*  WITH  THE  DEC  VAX  *) 

(*  *) 

(*  ORIGINATED:  3/21/86  B.  A.  ULMER  FRMI  *) 

(*  *) 

(* - *) 

XPAGE  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  XINCLUDE  MASDSP  *) 

(**) 
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(*  % INCLUDE  MAUPDT  *) 

<**) 

PROCEDURE  MAUPDT (VAR  KEY1: ANYKEY;  CONST  FLGNAME : NAMTYP ;  CONST 
FLGVAL: INTEGER;  VAR  RC:EXT_RET_CODE) {SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  UPDATE  A  SPECIFIED  APPLICATION  ACCESSIBLE  FLAG  VALUE  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  ENTITY  OR  LIST  OF  ENTITIES  WHOSE  *) 

(*  SPECIFIED  FLAG  VALUE  IS  TO  BE  UPDATED  *) 

(*  FLGNAME  I  FLAG  NAME  (STRING(6))  *) 

(*  FLGVAL  I  VALUE  TO  BE  USED  WHEN  UPDATING  THE  FLAG  *) 

(*  =1  TRUE  *) 

(*  =0  FALSE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  DETERMINE  WHICH  OF  THE  APPLICATION  ACCESSIBLE  FLAGS  IS  TO  BE*) 

(*  UPDATED  AND  THEN  UPDATE  IT  WITH  THE  INPUT  VALUE  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  08/21/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGED  TO  NOT  ALLOW  APPLICATION  TO  SET  AN  ENTITY  FOR  MARK  *) 

(*  DELETE  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 
(*  PURPOSES  *) 
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(*  *) 

(*  ORIGINATED:  05/21/85  B.  A.  ULMER  FRMI  *) 

<*  *) 

(* - *) 

XPAGE  *) 

(*  END  %INCLUDE  MAUPDT  *) 
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(*  %INCLUDE  MIDBD .  *) 

(**) 

PROCEDURE  MIDBD (VAR  KEY1: ANYKEY;  VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 


<**) 

(* - *) 

(*  *) 

(*  WARNING:  FOR  IDB  USE  ONLY  *) 

(*  MAY  CONTAMINATE  MODEL  IF  USING  DELETE  WITH  NO  DELETE  RULES  *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  DELETE  AN  ENTITY  OR  LIST  OF  ENTITIES  BUT  DO  NOT  CONSIDER  *) 

(*  THE  DELETE  RULES  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 


(* 

KEY1  I 

ENTITY  OR  LIST  OF  ENTITIES  TO  BE  DELETED 

*) 

<* 

RC  0 

EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

<  0  WARNING 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

*) 

(* 

$ COMMONS : 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

$ EXECUTION  PROCEDURE: 

*) 

(* 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

<* 

IF  KEY1  IS  AN  ENTKEY 

THEN 

*) 

<* 

DELETE  THE  ENTITY 

*) 

(* 

IF  KEY1  IS  A  LISTKEY 

THEN 

*) 

(* 

DELETE  EACH  ENTITY 

ON  THE  LIST 

*) 

(* 

*) 

(* 

$ COMMENTS : 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  05/01/86 

B.  A.  ULMER 

W315 

*) 

<* 

ADDED  A  CALL  TO  CNVOSP 

TO  CONVERT  AN  "OUT  OF 

SPACE"  CONDITION 

*> 

(* 

TO  USER  RECOGNIZEABLE 

FORM 

*) 

(* 

*> 

(* 

REVISED:  04/22/86 

E.  D.  SHREVE 

W315 

*) 
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(*  CHANGED  TO  CALL  XIELM  INSTEAD  OF  DELENTY  TO  PERFORM  THE  DELETE  *) 


(*  AND  CHANGE  INPUT  TO  VAR.  *) 

(*  *) 

(*  REVISED:  08/04/85  L.  J.  BEHAN  W315  *) 

(*  ADD  NEW  PARAMETER  TO  DELENTY  FOR  HANDLING  OF  APPLICATION  *) 

(*  LIST  POSITION  PROBLEM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

(*  *) 

(*  ORIGINATED:  06/17/85  B.  A.  ULMER  W315  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  MIDBD .  *) 


3-844 


(*  %INCLUDE  MIDBRV  *) 

(**) 

PROCEDURE  MIDBRV( CONST  KEY1: ANYKEY; CONST  IPOS :LISTINDX; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 

(**) 

(* - 

(*  WARNING:  FOR  IDB  USE  ONLY 

(*  MAY  CONTAMINATE  MODEL  IF  USING  REMOVE  WITHOUT  DELETE  RULES 

(* 

(*  $ FUNCTION: 

(*  REMOVE  AN  ENTITY  FROM  A  LIST  WITHOUT  CONSIDERING  THE 

(*  DELETE  RULES 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 


(* 

NAME 

I/O 

DESCRIPTION 

(* 

==== 

=== 

ii 

n 

ii 

n 

n 

ii 

ii 

ii 

ii 

n 

ii 

(* 

(* 

KEY1 

I 

THE  KEY  OF  AN  ENTITY  OR  LIST  OF  ENTITIES 
FROM  WHICH  AN  ENTITIY  WILL  BE  REMOVED 

(* 

(* 

IPOS 

I 

THE  POSITION  IN  KEY1  FROM  WHICH  THE 
ENTITIY  WILL  BE  REMOVED 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

(*  =  0  OK 

(*  >0  CRITICAL  ERROR 

(*  <0  WARNING 

(* 

(*  ^COMMONS: 

(* 

(*  $ ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  1.  KEY1  MAY  BE  AN  ENTITY  OR  LIST  KEY. 

(*  2.  IF  KEY1  IS  A  LIST  KEY,  THEN  AN  ENTITY  IS  REMOVED 

(*  FROM  THE  LIST. 

(*  3.  IF  KEY1  IS  AN  ENTITY  KEY,  THEN  AN  ENTITY  IS  REMOVED 

(*  FROM  THE  CONSTITUENT  LIST  OF  KEY1 . 

(*  4.  IPOS  IS  THE  POSITION  NUMBER  OF  THE  ENTITY  TO  BE 

(*  REMOVED. 

(* 

(*  ^COMMENTS: 

<* 

(*  $ CHANGE  CONTROL: 


•*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  REVISED:  05/01/86  B.  A.  ULMER  FRMI  *) 

(*  ADDED  A  CALL  TO  CNVOSP  TO  CONVERT  AN  "OUT  OF  SPACE"  CONDITION  *) 

(*  TO  USER  RECOGNIZEABLE  FORM  *) 

(*  *) 

(*  *) 

(*  REVISED:  12/30/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGE  CALL  FROM  DELENTY  TO  DELRUL  FOR  THE  CASE  WHEN  ENTITY  IS  *) 

(*  MARKED  FOR  DELETE  *) 

(*  *) 

(*  REVISED:  08/  /85  L.  J.  BEHAN  FRMI  *) 

(*  ADD  NEW  PARAMETERS  TO  DELENTY  FOR  HANDLING  OF  APPLICATION  *) 

(*  LIST  POSITION  PROBLEM  *) 

(*  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  FRMI  *) 

(*  ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING  *) 

(*  PURPOSES  *) 

<*  *) 

(*  ORIGINATED:  06/19/85  B.  A.  ULMER  FRMI  *) 

(*  *) 

(* - 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  7.INCLUDE  MIDBRV  *) 

(**) 
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(*  ^INCLUDE  MOVRLSM  *) 

(**) 

PROCEDURE  MOVRLSM( CONST  FROM_LIST:LISTPNTR; 

CONST  FROM_POSITION:LISTPSTN; VAR  TO_LIST :LISTPNTR ; 

CONST  TO_POSITION:LISTPSTN ; CONST  ENTCOUNT :LISTSIZE ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* -  - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  MOVE  ENTITIES  BETWEEN  SYSTEM  LISTS.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  FROM_LIST  *) 

(*  I  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  FROM_POSITION  *) 

(*  I  THE  RELATIVE  POSITION  OF  THE  FIRST  ENTITY  TO  *) 

(*  BE  MOVED.  *) 

(*  TO_LIST  I  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  TO_POSITION  *) 

(*  I  THE  RELATIVE  POSITION  IN  THE  LIST  TO  WHICH  *) 

(*  THE  ENTITIES  WILL  BE  MOVED.  *) 

(*  ENTCOUNT  I  THE  NUMBER  OF  ENTITIES  TO  MOVE.  *) 

<*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  =  14  BAD_LIST_POSITION  *) 

(*  =  16  BAD_LIST_MOVE_COUNT  *) 

(*  =17  BAD_LI ST_REFERENCE  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  MOVRLSM  USES  AMPXMOVE  A  SYSTEM  ROUTINE.  AMPXMOVE  MOVES  *) 

<*  DATA  FROM  MEMORY  TO  MEMORY  (NUMBER  OF  BYTES  TO  BE  MOVED  *) 

(*  HAS  TO  BE  SPECIFIED).  *) 

(*  *) 

(*  COMMENTS:  *) 

<*  *) 
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(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  OF  'TO_LIST'  TO  VAR.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  7.INCLUDE  MOVRLSM  *) 


I 


► 
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(*  ^.INCLUDE  MRGTLSM.  *) 

(**) 

PROCEDURE  MRGTLSM (VAR  LIST1 :LISTPNTR ; CONST  LIST2 :LISTPNTR ; 
VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* - 

(* 

(*  FUNCTION 

(*  CONCATENATE  THE  ENTITIES  IN  LIST2  TO  LIST1. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  LIST  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  LIST1,  LIST2  -  TWO  LIST  POINTERS. 

(* 

(*  OUTPUT 

(*  RR  -  THE  FUNCTION  RETURN  RECORD. 

(* 

(* - 

(**) 

(*  END  %INCLUDE  MRGTLSM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  7.INCLUDE  MRGTNM .  *) 

(**) 

PROCEDURE  MRGTNM( CONST  KEYL1 : LI STKEY; CONST  KEYL2 :LISTKEY ; 


VAR  RR:RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CONCATENATE  THE  ENTITIES  IN  LIST2  TO  LIST1.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE1  -  KEY  OF  THE  APPLICATION  LIST.  IF  ENTITY  KEY,  *) 

(*  THEN  USE  CONSTITUENT  LIST.  *) 

(*  KEYE2  -  KEY  OF  THE  APPLICATION  LIST  TO  BE  *) 

(*  CONCATENATED.  IF  ENTITY  KEY,  THEN  USE  *) 

(*  CONSTITUENT  LIST.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 


(*  END  % INCLUDE  MRGTNM.  *) 
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(*  %INCLUDE  MRKNM.  *) 

(**) 

PROCEDURE  MRKNM (VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  MARK  THE  STACK  OF  LISTS  SO  THAT  THE  NEXT  RELEASE  LIST  *) 

(*  WILL  ONLY  DESTROY  LISTS  CREATED  AFTER  THIS  MARK  OPERATION.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

<**) 

(*  END  %INCLUDE  MRKNM.  *) 
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(*  XINCLUDE  MRSCR  *) 

(**) 

PROCEDURE  MRSCR(CONST  KIND:ORD_KIND;  VAR  SCH_SIZE : INTEGER; 

VAR  RTSS :T_SCHEMA_PO INTER; VAR  RC :EXT_RET_CODE) ; SUBPROGRAM; 


%PAGE 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  SUBPROGRAM  IS  GIVEN  A  COPY  OF  THE  RUNTIME  SUBSCHEMA  FOR  *) 

(*  A  PARTICULAR  KIND  THIS  COPY  IS  APPENDED  TO  THE  ADB  FOR  THE  *) 

(*  KIND  COLLECTOR  AND  ITS  OFFSET  INTO  IT  IS  RETURNED  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KIND  I  KIND  VALUE  FOR  WHICH  THE  SUBSCHEMA  *) 

(*  DEFINITION  WILL  BE  CREATED  *) 

(*  SCH_SIZE  I  SIZE  OF  THE  RUN  TIME  SUBSCHEMA  *) 

(*  TO  BE  CREATED  *) 

(*  RTSS  I/O  KEY  OF  RUNTIME  SUBSCHEMA  TO  BE  ATTACHED  *) 

(*  AND  ITS  NEW  LOCATION  *) 

(*  RC  0  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  a  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

<*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  ORIGINATED:  03/07/87  K.  M.  ROSS  W315  *) 

<*  *) 

(* - *) 

(*  END  XINCLUDE  MRSCR  *) 
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(*  %INCLUDE  MSINIT.  *) 

(**) 

PROCEDURE  MSINIT(VAR  SIZE : INTEGER; 

VAR  RC:EXT_RET_CODE); SUBPROGRAM; 


(**) 

(* - *) 

C*  *) 

(*  $ FUNCTION:  *) 

(*  INITIALIZE  THE  MAS  NETWORK  WITH  AN  INITIAL  MODEL  SIZE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  SIZE  I  A  NUMBER  REPRESENTING  HOW  LARGE  AN  *) 

(*  INITIAL  MODEL  SIZE  TO  CREATE  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  <0  WARNING  *) 

(*  >  0  CRITICAL  ERROR  *) 

<*  *) 

(*  $COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  $ COMMENTS :  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED: 

(*  CHANGE  : 

(*  *) 

(*  ORIGINATED:  02/17/88  K.  M.  ROSS  W315  *) 

(*  *) 

(* - *) 

XPRINT  ON 


(*  END  %INCLUDE  MSINIT  *) 
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(*  %INCLUDE  MSTART.  *) 

(**) 

PROCEDURE  MSTART (CONST  ID : INTEGER) ; SUBPROGRAM; 
(**) 

(* - 

(* 

(* 

(* 

(* 

(* 


-*) 

*) 

*) 

*) 

*) 

*) 


(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


^FUNCTION: 

START  STATISTICS  GENERATION. 
^DESCRIPTION  OF  ARGUMENTS: 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

*) 

*) 

*> 

n  II 
O  II 

n 

ii 

I 

INDICATION  OF  THE  STATISTICS  BEING  KEPT 

(* 

THIS  FIELD  MUST  CORRESPOND  TO  ID  INPUT 

*) 

(* 

TO  MSTOP 

*) 

(* 

RC 

0 

EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

>  0  CRITICAL  ERROR 
<  0  WARNING 


$ COMMONS: 


^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE 

$PROCESSING  DESCRIPTION: 

WHEN  MSTART  IS  CALLED,  THE  INTEGER  EQUIVALENT  VALUE  OF  THE 
MAS  ROUTINE  ID  IS  ENTERED  INTO  A  COMMON  FIELD.  ALSO,  A 
FLAG  IS  SET  TO  ON  INDICATING  THAT  THIS  PARTICULAR  MAS 
ROUTINE  IS  THE  ONE  CURRENTLY  BEING  PROCESSED. 

$ COMMENTS : 

$ CHANGE  CONTROL: 

REVISED:  07/24/86  B.  A.  ULMER  FRMI 

CH.'  NGE  ID_FLAG  FIELD  OF  MSTATUS  TO  AN  INTEGER  SO  THAT  AN  APPL. 
USER  CAN  KNOW  HOW  MANY  LEVELS  HE  IS  NESTED 

REVISED:  07/11/85  B.  A.  ULMER  FRMI 

ADD  A  NEW  PARAMETER  TO  CNVRR  FOR  ERROR  HANDLING  AND  DEBUGGING 
PURPOSES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*> 

*) 

*> 

*) 
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(*  %INCLUDE  MSTOP.  *) 

(**) 

PROCEDURE  MSTOP(CONST  ID : INTEGER) ; SUBPROGRAM; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  STOP  STATISTICS  GENERATION.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  STATISTICS  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  ID  -  INDICATION  OF  TYPE  OF  STATISTICS  BEING  KEPT.  *) 

(*  THIS  FIELD  MUST  CORRESPOND  TO  ID  INPUT  TO  *) 

(*  CALL  TO  MSTART.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  METHOD  *) 

(*  WHEN  MSTOP  IS  CALLED,  THE  INTEGER  EQUIVALENT  VALUE  OF  THE  *) 

(*  MAS  ROUTINE  ID  IS  ENTERED  INTO  A  COMMON  FIELD.  ALSO,  A  *) 

(*  FLAG  IS  SET  TO  OFF  INDICATING  THAT  THIS  PARTICULAR  MAS  *) 

(*  ROUTINE  IS  NO  LONGER  ACTIVELY  BEING  PROCESSED,  BUT  THE  ID  *) 

(*  WILL  INDICATE  THAT  IT  WAS  THE  LAST  ONE  CALLED.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  MSTOP.  *) 
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(*  %INCLUDE  NDSCMM.  *) 

(**) 

PROCEDURE  NDSCMM; EXTERNAL; 

(**) 

(* - 

(* 

(*  FUNCTION 

C*  DUMMY  PROGRAM  DEFINES  NDSREM  COMMON. 

(*  USED  AS  THE  'SEED'  OF  THE  MAS  NDS . 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  NETWORK  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  NONE 

(* 

(*  OUTPUT 

(*  NONE 

(* 

(*  METHOD 

<*  SYSTEM  INCONGRUITIES  FORCE  NESTING  OF  DEF  WITHIN  A 

(*  PROCEDURE. 

(* 

(* - 

(**) 

(*  END  %INCLUDE  NDSCMM.  *) 


-*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 
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(*  7.INCLUDE  NDSFCT  *) 

(**) 

PROCEDURE  NDSFCT(VAR  MODSIZ : INTEGER ;  VAR  FRESIZ : INTEGER ; 

VAR  RR : RET_REC) ; EXTERNAL ; 

(**) 

(* - 

(* 

(*  $ FUNCTION : 

(*  COMPUTES  THE  AMOUNT  OF  USED  MODEL  SPACE  AND  THE  AMOUNT  OF 

(*  FREESPACE  IN  THE  ALLOCATED  MEMORY  BLOCKS. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 

(*  MODSIZ  0  TOTAL  BYTES  OF  USED  MODEL  SPACE 

(*  FRESIZ  0  NUMBER  OF  BYTES  OF  FREE  SPACE. 

(*  RR  0  RETURN  CODE 

(*  =  0  OK  RETURN  CODE 

(*  >0  CRITICAL  ERROR 

(*  <0  WARNING 

(* 

(*  $  COMMONS: 

(*  PCMGT 

(*  PTR  I  POINTER  TO  THE  1ST  ALLOCATED  MEMORY  BLOCK. 

(* 

(*  ^ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

(*  USED  ONLY  WITH  THE  MAS  MEMORY  MANAGER.  CAN  NOT  BE  USED 

(*  WITH  THE  PASCAL  MEMORY  MANAGER. 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  EACH  ALLOCATED  BLOCK  IS  FOUND  USING  THE  BLOCK  CHAIN  OF  THE 

(*  SPACE  CONTROL  BLOCK  ($CB).  THE  FREE  CHAIN  IS  USED  TO  SUM 

(*  THE  SIZE  OF  EACH  FREED  ENTRY.  THE  BLOCK  SIZES  OF  ALL 

(*  ALLOCATED  BLOCKS  ARE  ALSO  TOTALED. 

(*  MODSIZ  =  TOTAL  SPACE  ALLOCATED  -  FREESIZE 

(* 

(*  $ COMMENTS: 

(*  THE  STRUCTURE  OF  THE  MEMORY  MANAGER  CONTROL  BLOCKS  ARE 

(*  DESCRIBED  IN  THE  INCLUDE  MEMBER  ’PCMGT'. 

<* 

(*  $ CHANGE  CONTROL: 
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(*  CHANGED:  07/16/85  B.  A.  ULMER  W315  *) 

(*  REASON:  CHANGED  $PCMGT  TO  PCMGT  FOR  VAX  C OMPATAB I L I T Y  *) 

(*  *) 

<*  ORIGINATED:  04/09/85  E.  SHREVE  W315  *) 

(*  *) 

(* - *) 

(*END - *) 

(*  END  %INCLUDE  NDSFCT  *) 
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(*  %INCLUDE  NDSGBM.  *) 

(**) 

PROCEDURE  NDSGBM; EXTERNAL; 

<**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  DUMMY  PROCEDURE  FOR  COMPILE  TIME  INITIALIZATION  OF  NDS  *) 

(*  GLOBAL  AREA.  CONTAINS  NDS  GLOBAL  VARIABLE.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  NETWORK  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  OUTPUT  *) 

(*  NONE  -  *) 

<*  *) 

(*  COMMENT  *) 

(*  DEFINED  WITHIN  THIS  PROCEDURE  ARE  THE  LIST  OF  ALL  NETWORKS  *) 

(*  AND  THE  LIST  OF  ALL  LISTS.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  NDSGBM.  *) 
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(*  %INCLUDE  NDSRML  *) 

(**) 

PROCEDURE  NDSRML; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  RELEASE  ALL  MEMORY  BLOCKS  ALLOCATED  TO  THE  WORKING  FORM.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  NONE  *) 

<*  *) 

(*  $ COMMONS :  *) 

(*  $PCMGR  *) 

(*  PTR  I  POINTER  TO  THE  FIRST  ALLOCATED  BLOCK.  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  -  MAS  PACKAGE  USING  *) 

(*  THE  MODEL  ACCESS  MEMORY  MANAGER.  *) 

<*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  THIS  ROUTINE  CAN  ONLY  BE  USED  WITH  THE  MAS  MEMORY  MANAGER.  *) 

(*  IF  THE  PASCAL  MEMORY  MANAGER  IS  USED,  THE  ROUTINE  DISPNDM  *) 

(*  MUST  BE  SUBSTITUTED  FOR  NDSRML.  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  BEGINNING  WITH  THE  POINTER  IN  $PCMGR,  EACH  MEMORY  BLOCK  *) 

(*  ALLOCATED  TO  THE  WORKING  FORM  IS  LOCATED  AND  FREED.  *) 

<*  *) 

(*  ^COMMENTS:  *) 

(*  THE  1ST  WORD  OF  EACH  MEMORY  AREA  CONTAINS  THE  POINTER  THAT  *) 

(*  CHAINS  ALL  WORKING  FORM  MEMORY  AREAS.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  07/11/85  B.  A.  ULMER  W315  *) 

(*  CHANGED  $PCMGT  TO  PCMGT  FOR  VAX  COMPATABILITY  *) 

(*  *> 

(*  ORIGINATED:  04/05/85  E.D.  SHREVE  W315  *) 

<*  *) 

<* - *) 
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(* - *) 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(*  THE  INCLUDE  MEMBER  '$PCMGR'  DESCRIBES  THE  STRUCTURE  OF  THE  *) 

(*  CONTROL  BLOCKS  THAT  CONTROL  THE  MEMORY  AREAS  AND  LINKS  THEM  *) 

(*  TOGETHER.  *) 

(* - *) 

(*  *) 

(*END - *) 

(*  END  %INCLUDE  NDSRML  *) 
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(*  %INCLUDE  NEWCRB  *) 

(**) 

PROCEDURE  NEWCRB(VAR  CRB:CRBPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(*— 

-*) 

(* 

*) 

(* 

AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  85/02/08  CC??*) 

(* 

VERSION:  XXXX  REVISED:  YY/MM/DD  CC 

*) 

(* 

*) 

(* 

FUNCTION: 

*) 

(* 

CREATE  A  CRB 

*) 

(* 

*) 

(* 

ENVIRONMENT: 

*) 

(* 

IBM  PASCAL  LANGUAGE 

*) 

(* 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

*) 

(* 

*) 

(* 

EXECUTION  PROCEDURE: 

*) 

(* 

HOW  IS  THIS  ROUTINE /MODULE  TO  BE  EXECUTED. 

*) 

(* 

*) 

(* 

DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

CRB  I/O  CONSTITUENT  READ  BLOCK  ADDRESS 

*) 

(* 

RR  0  ERROR  CONDITION  RETURN  CODE 

*) 

W 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

=  1  YOU  BLEW  IT 

*) 

(* 

=  2  THE  ROUTINE  BLEW  IT 

*) 

<* 

*) 

<* 

COMMONS : 

*) 

(* 

C0M1 

*) 

<* 

VAR1  I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 

*) 

(* 

MUST  BE  PROVIDED 

*) 

(* 

VAR2  I  VAR2  MUST  BE  SPECIFIED 

*) 

(* 

COM2 

*) 

(* 

VAR3  I  CHARACTER  DATA  MUST  BE  SPECIFIED 

*) 

(* 

*) 

(* 

PROCESSING  DESCRIPTION: 

*) 

(* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 

*) 

(* 

FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

*) 

(* 

*) 

(* 

COMMENTS : 

*) 

(* 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(* 

THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE. 

*) 

(* 

*) 

(* 

CHANGE  CONTROL: 

*> 

(* 

YY/MM/DD  CCZZ  I.  M.  THECHANGER 

*) 

(* 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

*) 

» 
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(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  NEWCRB  *) 
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(*  ^INCLUDE  NEWEMM.  *) 

(**) 

PROCEDURE  NEWEMM(VAR  KEYE : ENTKEY ; CONST  FORM:ENTITIES ; 
VAR  RR:RET_REC) ; EXTERNAL ; 


(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  NEW  NDS  OBJECT.  FORM  DETERMINES  WHAT  IS  CREATED.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  ENTITY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  FORM  -  THE  FORM  OF  THE  ENTITY  TO  CREATE.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  KEYE  -  THE  POINTER  TO  THE  CREATED  ENTITY.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  TO  CALL  ’MASNEW’ .  *) 

(* - *) 

(**) 


(*  END  %INCLUDE  NEWEMM.  *) 
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(*  %INCLUDE  NEWIIM  *) 

<**) 

PROCEDURE  NEWIIM( CONST  ROOT :ENTKEY; VAR  KEYE :ENTKEY ; 

VAR  ENTDEF : ENTBLOCK ; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  A  NEW  ENTITY  AND  COPY  THE  APPLICATION  ENTDATA  INTO  *) 

(*  IT.  CALLING  PROCEDURE  MUST  CONNECT  ENTITY  TO  PROPER  POINT  *) 

(*  IN  NDS .  *) 

<*  *) 

(*  ^ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ROOT  I  THE  NDS  INTERNAL  ROOT  TO  BE  THE  OWNER  OF  *) 

(*  THE  ENTITY.  *) 

(*  ENTDEF  I  CONTAINS  THE  DATA  TO  BE  COPIED  INTO  THE  *) 

(*  NEW  ENTITY.  *) 

(*  KEYE  0  THE  KEY  OF  THE  NEW  ENTITY.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  ALLOCATES  A  NEW  TJENTITY  AND  CREATS  EMPTY  USER  AND  CNSTS  *) 

(*  LISTS  AND  POINTS  TO  THEM.  IT  CREATES  THE  ADB.  *) 

<*  *) 

(*  $ COMMENTS :  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  04/26/85  E.  D.  SHREVE  W315  *) 

(*  TO  INITIALIZE  THE  CRBEXIT  AND  MAPROB  FIELDS  *) 

(*  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  OF  ENTDEF  TO  VAR.  *) 

(*  *) 

(**) 

(*  END  XINCLUDE  NEWIIM  *) 


3-865 


Cl  PS560240032U 
April  1990 


(*  %INCLUDE  NEWLSM.  *) 

(**) 

PROCEDURE  NEWLSM(CONST  SIZE : LI STS I ZE ; VAR  POSITION:LISTPSTN; 

VAR  LISTREF:LISTPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  LISTREF  IS  INITIALIZED  AND  ALLOCATED  ENOUGH  SPACE  TO  HOLD  *) 

(*  SIZE  ENTITIES.  IF  ALREADY  INITIALIZED,  LISTREF  IS  DELETED  *) 

(*  PRIOR  TO  ALLOCATION  OF  SPACE.  IF  SIZE  IS  ZERO,  NO  SPACE  *) 

(*  IS  ALLOCATED.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  SIZE  -  NUMBER  OF  ENTITIES  TO  BE  ALLOCATED.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  POSITION  -  POSITION  OF  LIST.  *) 

(*  LISTREF  -  POINTER  TO  A  SYSTEM  LIST  WITH  SIZE  ENTITIES  *) 

(*  ALLOCATED  TO  IT.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  CHANGE  CONTROL  *) 

(*  CHANGED:  12/10/84  J.  JOHNSON  -  TO  CALL  ’MASNEW'.  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  NEWLSM.  *) 
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(*  %INCLUDE  NEWNDM.  *) 

(**) 

PROCEDURE  NEWNDM (VAR  NDSREM : NDS ; VAR  RR:RET_REC) ; EXTERNAL; 

<**) 

<* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  NEW  EMPTY  MODEL  IN  MEMORY.  *) 

<*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  NETWORK  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  OUTPUT  *) 

(*  NDSREM  -  CONNECTED  TO  THE  NEW  NDS.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  EDS  -  MAS  VERSION  2  -  9/17/84  REMOVE  'MARK'  FUNCTION.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  NEWNDM.  *) 
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(*  %INCLUDE  NEWNM.  *) 

(**) 

PROCEDURE  NEWNM(VAR  KEYL:LISTKEY ;VAR  RR :RET_REC) ; EXTERNAL; 
(**) 

(* - 

(* 

(*  $ FUNCTION 

(*  CREATE  AN  EMPTY  APPLICATION  LIST. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS 


(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEYL 

0 

KEY 

OF  THE  CREATED  APPL  LIST 

(* 

RR 

0 

RETURN  CODE 

(* 

=0 

GOOD  RETURN 

(* 

>0 

CRITICAL  ERROR 

<* 

<0 

WARNING 

(* 

(* 

^COMMONS 

(* 

NDSGVM 

(* 

STACK. 

_OF_LISTS  I 

USED 

TO  FIND  LIST_OF_LISTS  TO  ADD 

<* 

THE  NEW  LIST  KSY. 

(* 

(*  ^ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  OF  THE  MODEL  ACCESS  SOFTWARE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  CREATES  A  NEW  APPLICATION  LIST  ELEMENT  AND  ATTACHES  IT 

(*  TO  THE  LIST_OF_LISTS .  IT  CREATES  A  NEW  SYSTEM  LIST  THAT 

(*  IS  EMPTY  AND  ATTACHES  IT  TO  THE  APPLICATION  LIST  ELEMENT 

(*  THE  FIELDS  OF  THE  ELEMENTS  ARE  INITIALIZED. 

<* 

(*  $ CHANGE  CONTROL: 

(*  REVISED:  04/23/85  E.D.  SHREVE  W315 

{*  CHANGED  TO  INITIALIZE  THE  NEW  ' DELTFLG '  FIELD. 

(* 

(*  ORIGINATED:  ORIGINAL  NDS  PACKAGE 

(* - 

(**) 

(*END  %INCLUDE  NEWNM.  *) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

.*) 
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(*  %INCLUDE  NEWNMM.  *) 

(**) 

PROCEDURE  NEWNMM(VAR  KEYL:LISTKEY;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - 

(* 

(*  $ FUNCTION 

(*  CREATE  AN  EMPTY  APPLICATION  LIST  WITHOUT  ADDING  IT  TO  THE 

(*  LIST  OF  LISTS 

(* 


(* 

^DESCRIPTION 

OF  ARGUMENTS 

(* 

(* 

(* 

NAME 

I/O 

DESCRIPTION 

KEYL 

0 

KEY 

OF  THE  CREATED  APPL  LIST 

<* 

RR 

0 

RETURN  CODE 

(* 

=0 

GOOD  RETURN 

(* 

>0 

CRITICAL  ERROR 

(* 

<0 

WARNING 

(* 

(* 

4 COMMONS 

(* 

<* 

^ENVIRONMENT : 

(* 

LANGUAGE: 

IBM  PASCAL 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  ^EXECUTION  PROCEDURE: 

(*  INTERNAL  PROCEDURE  OF  THE  MODEL  ACCESS  SOFTWARE 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  CREATES  A  NEW  APPLICATION  LIST  ELEMENT  AND  ATTACHES  IT 

(*  TO  THE  LIST_OF_LISTS .  IT  CREATES  A  NEW  SYSTEM  LIST  THAT 

(*  IS  EMPTY  AND  ATTACHES  IT  TO  THE  APPLICATION  LIST  ELEMENT. 

(*  THE  FIELDS  OF  THE  ELEMENTS  ARE  INITIALIZED. 

<* 

(*  4 CHANGE  CONTROL: 

(*  REVISED:  04/23/85  E.D.  SHREVE  W315 

(*  CHANGED  TO  INITIALIZE  THE  NEW  ’ DELTFLG '  FIELD. 

(* 

(*  ORIGINATED:  ORIGINAL  NDS  PACKAGE 

(* - 

(**) 

(*END  ^INCLUDE  NEWNMM.  *) 


■*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  XINCLUDE  NEWNODE  *) 

(**) 

PROCEDURE  NEWNODE (CONST  NDSREM:NDS ;VAR  KEYE :ENTKEY ; 

VAR  ENTDEF : ENTBLOCK ; VAR  RR:RET_REC) ; EXTERNAL; 

<**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  CREATE  A  NEW  ENTITY  IN  THE  NDS  AND  COPY  THE  APPLICATION  *) 

(*  ENTDATA  INTO  IT.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  NDS REM  I  THE  NDS  TO  BE  THE  OWNER  OF  THE  ENTITY.  *) 

(*  ENTDEF  I  CONTAINS  THE  DATA  TO  BE  COPIED  INTO  THE  *) 

(*  NEW  ENTITY.  *) 

(*  KEYE  0  THE  KEY  OF  THE  NEW  ENTITY.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

<*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  FOR  ENTDEF  TO  VAR.  *) 

(*  *) 

(* - *) 

<**) 

(*  END  XINCLUDE  NEWNODE  *) 
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(*  %INCLUDE  NEWNSI.  *) 

(**) 

PROCEDURE  NEWNSI(VAR  ROOT : ENTKEY ; VAR  KEYE :ENTKEY ;VAR  RR :RET_REC) ; 
EXTERNAL; 

<"**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  AN  EMPTY  SCHEMA  INSTANCE  COLLECTOR  ATTACHED  TO  THE  *) 

(*  SCHEMA  ROOT.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  SCHEMA  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  ROOT  -  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED  *) 

(*  INSTANCE  COLLECTOR  WILL  BE  ATTACHED.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  KEYE  -  KEY  OF  THE  CREATED  INSTANCE  COLLECTOR  ENTITY.*) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  THIS  PROGRAM  IS  CALLED  FOR  NO  OTHER  REASON  THAN  TO  AVOID  *) 

(*  PASCAL  TYPE  CHECKING  BY  USING  A  DIFFERENT  DEFINITION  OF  *) 

(*  ENTBLOCK.  *) 

(*  *) 

(* - *) 

<**) 

(*  END  XINCLUDE  NEWNSI.  *) 
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(*  %INCLUDE  NEWNSR.  *) 

(**) 

PROCEDURE  NEWNSR(VAR  ROOT :ENTKEY; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  A  NEW  NULL  SCHEMA  ROOT  AND  ATTACH  IT  TO  THE  NDS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  SCHEMA  PACKAGE.  *) 

<*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  ROOT  -  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED  *) 

(*  SCHEMA  ROOT  WILL  BE  ATTACHED.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  THIS  PROGRAM  IS  CALLED  FOR  NO  OTHER  REASON  THAN  TO  AVOID  *) 

(*  PASCAL  TYPE  CHECKING  BY  USING  A  DIFFERENT  DEFINITION  OF  *) 

(*  ENTBLOCK.  *) 

(*  *) 

(* - 

(**) 

(*  END  XINCLUDE  NEWNSR.  *) 
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(*  %INCLUDE  NEWSADB  *) 

(**) 

PROCEDURE  NEWSADB ( CONST  SIZE :ENTSIZE ; VAR  ENTBPNTR : ENTPNTR ; 


VAR  RR :RET_REC) ;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  1  REVISED:  12/10/84  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  ALLOCATE  SPACE  FOR  DATA  TO  A  SYSTEM  UDB.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  SIZE  I  SIZE  OF  ENTDATA  TO  BE  COPIED.  *) 

(*  ENTBPNTR  0  POINTER  TO  ENTBLOCK  CREATED.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  NEWSADB  USES  THE  PASCAL/VS  COMPILER  SUPPORT  ROUTINE  AMPXNEW . * ) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION,  *) 

(*  84/12/10  MAS  VER  2  J.  JOHNSON  *) 

(*  TO  CALL  MAS NEW.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  NEWSADB  *) 
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(*  7.INCLUDE  NEWS  CHI.  *) 

(**) 

PROCEDURE  NEWSCHI( CONST  ROOT :ENTKEY; VAR  KEYE :ENTKEY ; 

VAR  ENTDEF:ENTBLOCK;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - 

(* 

(*  FUNCTION 

(*  CREATE  AN  EMPTY  SCHEMA  INSTANCE  COLLECTOR  ENTITY  ATTACHED 

(*  TO  THE  SCHEMA  ROOT. 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  SCHEMA  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  ROOT 

(* 

(* 

(*  OUTPUT 

(*  KEYE 

(*  ENTDEF 

(*  SCH_PTR 

(* 

(*  RR 

<* 

(* - 

(**) 

(*  END  XINCLUDE  NEWSCHI .  *) 


-  THE  INTERNAL  ROOT  TO  WHICH  THE  CREATED 
INSTANCE  COLLECTOR  WILL  BE  ATTACHED. 


-  KEY  OF  THE  INITIALIZED  ENTITY. 

-  WORK  AREA  TO  PASS  TO  NEWIIM. 

-  POINTER  TO  THE  CREATED  INSTANCE  COLLECTOR 
ENTITY. 

-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  NEWSCHR.  *) 

(**) 

PROCEDURE  NEWSCHR (VAR  ROOT :ENTKEY; VAR  ENTDEF : ENTBLOCK ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CREATE  AN  EMPTY  ROOT  COLLECTOR  ENTITY  ATTACHED  TO  THE  NDS .  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  SCHEMA  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  ROOT  -  THE  INTERNAL  ROOT  TO  WHICH  THE  CHEATED  *) 

(*  SCHEMA_ROOT  WILL  BE  ATTACHED.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  ENTDEF  -  WORK  AREA  TO  BE  PASSED  TO  NEWIIM.  *) 

<*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  NEWSCHR.  *) 
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(*  7.INCLUDE  NODECNM.  *) 

(**) 

PROCEDURE  NODECNM(CONST  KEYE :ENTKEY ;VAR  KEYLOUT : LI STKEY ; 
VAR  RR:RET_REC); EXTERNAL; 


(** 

(*- 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

c* 

(* 

(* 

(* 

(* 


) 


$ FUNCTION: 

CREATE  A  LIST  WHICH  CONTAINS  A  COPY  OF  THE  ENTITY'S 
CONSTITUENT  LIST. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O  DESCRIPTION 


KEYE 

KEYLOUT 

RR 


I  KEY  OF  THE  ENTITY. 

0  LIST  OF  THE  ENTITY'S  CONSTITUENT  ENTITIES 
0  THE  FUNCTION  RETURN  RECORD. 

=0  OK  RETURN  CODE 
=  1  YOU  BLEW  IT 
=  2  THE  ROUTINE  BLEW  IT 
=  ?  ERRORS  FROM  INTERNALLY  CALLED 
FUNCTIONS 


$ COMMONS : 


^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$EXECUTION  PROCEDURE: 

MODEL  ACCLSS  SOFTWARE  INTERFACE  ROUTINE 
OR 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 
{PROCESSING  DESCRIPTION: 

{COMMENTS: 

{CHANGE  CONTROL: 

REVISED:  06/28/85  CCXX  B.  A.  ULMER  FRMI 

CHANGE  THE  RETURN  CODE  FROM  (END_OF_LIST  TO  NO_LI ST_CREATED ) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  %INCLUDE  NODECNN.  *) 

(**) 

PROCEDURE  NODECNN(CONST  KEYE :ENTKEY ;VAR  KEYLOUT : LI STPNTR ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  $ FUNCTION:  *) 

(*  CREATE  A  LIST  WHICH  CONTAINS  A  COPY  OF  THE  ENTITY’S  *) 

(*  CONSTITUENT  LIST  WITHOUT  ADDING  AN  ENTRY  IN  THE  LIST  OF  LISTS*) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  KEY  OF  THE  ENTITY.  *) 

(*  KEYLOUT  0  LIST  OF  THE  ENTITY’S  CONSTITUENT  ENTITIES*) 

(*  RR  0  THE  FUNCTION  RETURN  RECORD.  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  =1  YOU  BLEW  IT  *) 

(*  =  2  THE  ROUTINE  BLEW  IT  *) 

(*  =  ?  ERRORS  FROM  INTERNALLY  CALLED  *) 

(*  FUNCTIONS  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  MODEL  ACCESS  SOFTWARE  INTERFACE  ROUTINE  *) 

(*  OR  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

<*  *) 

(*  ORIGINATED:  03/07/87  K.  M.  ROSS  DBMA  *) 

<*  *) 

(* - *> 

(*  DATA  STRUCTURES /MAJOR  VARIABLES:  *) 

(* - *) 

(*  *) 

(*ENB - *) 

(**) 

(*  END  XINCLUDE  NODECNN.  *) 
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(*  %INCLUDE  0C0UNT  *) 
(**) 


PROCEDURE  OCOUNT(VAR  S I ZE: INTEGER ); EXTERNAL; 
(**) 


(*— 

— 

-*) 

<* 

*) 

(* 

AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  86/03/13 

CC??*) 

(* 

VERSION:  XXXX  REVISED:  YY/MM/DD 

CC 

*) 

(* 

*) 

(* 

FUNCTION: 

*) 

(* 

COUNT  THE  NUMBER  OF  TIMES  THE  OVERFLOW  BUFFER  HAS  BEEN 

USED 

*) 

(* 

*) 

<* 

ENVIRONMENT: 

*) 

c* 

IBM  PASCAL  LANGUAGE 

*) 

(* 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

*) 

(* 

*) 

(* 

EXECUTION  PROCEDURE: 

*) 

(* 

HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 

*) 

(* 

*) 

<* 

DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

SIZE  I/O  SIZE  TO  BE  STORED  IN  THE  REQUESTED  SIZE  ARRAY 

*) 

(* 

IN  THE  MSTATUS  COMMON 

*) 

(* 

*) 

c* 

COMMONS : 

*) 

(* 

MSTATUS 

*) 

(* 

*) 

c* 

PROCESSING  DESCRIPTION: 

*) 

<* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 

*) 

(* 

FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

*) 

(* 

*) 

(* 

COMMENTS : 

*> 

(* 

TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

<* 

THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE. 

*) 

(* 

*) 

(* 

CHANGE  CONTROL: 

*) 

(* 

YY/MM/DD  CCZZ  I.  M.  THECHANGER 

*) 

(* 

DESCRIPTION  OF  LATEST  CHANGE  MADE. 

*) 

(* 

YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER 

*) 

<* 

DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE 

*) 

<* 

NARRATION  ON  THE  NEXT  LINE. 

*> 

(* 

YY/MM/DD  CCXX  I.  M.  APERSON 

*) 

(* 

DESCRIPTION  OF  FIRST  CHANGE  MADE. 

*) 

(* 

*) 

(*-- 

-*> 

(**) 

(*  END  XINCLUDE  OCOUNT  *) 
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(*  %INCLUDE  ORDRLST .  *) 

(**) 

PROCEDURE  ORDRLST(VAR  IN_LIST:LISTPNTR;  VAR  RR:RET_REC) ; EXTERNAL; 

<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  GIVEN  AN  APPLICATION  LIST  OF  ENTITIES  REORDER  THEN  SO  THAT  *) 

(*  THEY  ARE  IN  USER  TO  CONSTITUENT  ORDER  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  IN_LIST  I  SYSTEM  LIST  THAT  IS  TO  BE  REORDERED  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

<*  ^COMMONS:  *) 

<*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CREATE  A  COPY  OF  IN_LIST  IN  SRT_LST.  *) 

(*  REPEAT  FOR  EACH  ENTITY  OF  SRT_LST:  *) 

(*  GET  ALL  USERS  OF  I-TH  ENTITY  OF  SRT_LST.  *) 

(*  IF  A  USER  OF  SRT_LST(I)  APPEARS  AT  SRT_LST(J)  AND  I<J  *) 

(*  THEN  *) 

(*  SWAP  SRT_LST(I)  AND  SRT_LST(J).  *) 

(*  ELSE  *) 

(*  GET  NEXT  SRT_LST(I)  *) 

(*  UNTIL  END  OF  LIST  IN  SRT_LST.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  ^CHANGE  CONTROL:  *) 

(*  *) 
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(*  %INCLUDE  ORDRLSTI.  *) 

(**) 

PROCEDURE  ORDRLSTI (VAR  IN_LIST :LISTPNTR ;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* — 

--*) 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

GIVEN  AN  APPLICATION  LIST  OF  ENTITIES  REORDER  THEN 

SO  THAT 

*) 

(* 

THEY  ARE  IN  INCLUSIVE  USER  TO  CONSTITUEN  ORDER 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*> 

(* 

(* 

NAME  I/O  DESCRIPTION 

*) 

\ 

(* 

IN_LIST  I  SYSTEM  LIST  THAT  IS  TO  BE  REORDERED 

*) 

*) 

(* 

RC  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  OK 

*) 

(* 

>  0  CRITICAL  ERROR 

*) 

(* 

<  0  WARNING 

*) 

(* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

<* 

$ ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

*) 

<* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

<* 

INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

*) 

(* 

REPEAT  FOR  EACH  ENTITY  OF  SRT  LST: 

*) 

(* 

*) 

(* 

CREATE  THE  LIST  OF  INCLUSIVE  USERS 

*) 

(* 

*) 

(* 

ADD  INCLUSIVE  USERS  NOT  ALREADY  PROCESSED  TO  THE 

OUTPUT 

*) 

(* 

LIST 

*) 

(* 

*) 

(* 

WITH  THE  ORDERED  INCLUSIVE  USER  LIST  REMOVE  MEMBERS 

OF  THE 

*) 

(* 

INPUT  LIST  AND  ADD  TO  THE  OUTPUT  LIST 

*) 

(* 

*) 

(* 

*) 

(* 

$ COMMENTS : 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

*) 

(* 

REVISED:  MM/DD/YY  I.  M.  CHANGER 

FRMI 

*) 
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(*  COMMENTS  AS  NECESSARY  *) 

(*  *) 

(*  ORIGINATED:  10/14/86  K.  M.  ROSS  DBMA  *) 

(*  *) 

(*  CHANGED:  K.  M.  ROSS  10/24/86  *) 

(*  REASON  :  APPLICATIONS  ABENDING  S0C4  *) 

(*  CHANGE  :  INITIALIZE  POINTERS  *) 

<*  *) 

(*  CHANGED:  K.  M.  ROSS  10/24/86  *) 

(*  REASON  :  SLOW  RESPONCE  WITH  LARGE  LISTS  *) 

(*  CHANGE  :  OPTIMIZE  ALGORITHM, CREATE  USERS  LISTS  FOR  EACH  ELEMENT  *) 

(*  ONCE  *) 

(* - *) 


(**) 

(*  END  %INCLUDE  ORDRLSTI .  *) 
(**) 
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(*  % INCLUDE  OSTART  *) 

(**) 

PROCEDURE  OSTART;  EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  B.  A.  ULMER  FRMI  CREATED:  86/03/13  CC??*) 

(*  VERSION:  XXXX  REVISED:  YY/MM/DD  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  INITIALIZE  THE  INFORMATION  DEALING  WITH  THE  OVERFLOW  BUFFER  *) 

(*  IN  THE  MSTATUS  COMMON  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W.  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  HOW  IS  THIS  ROUTINE/MODULE  TO  BE  EXECUTED.  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

<*  NAME  I/O  DESCRIPTION  *) 

(*  *) 

(*  COMMONS:  *) 

(*  MSTATUS  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH  *) 

(*  FILES  NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC.  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  TEXT  OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDERSTAND*) 

(*  THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE.  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**> 

(*  END  /(INCLUDE  OSTART  *) 
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(*  %INCLUDE  PASASM.  *) 

(**) 

PROCEDURE  PASASM( CONST  KEYP :ENTKEY ;  VAR  BLOCK :ENTBLOCK;  VAR 
DATAREC : BLKDATA ; 

VAR  RC:EXT=RET-CODE;  CONST  NAME : ROUTINE ); FORTRAN; 


(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  D.  KERCHNER  PDDI  CREATED:  84/09/11  *) 

(*  VERSION:  MAS2  REVISED:  YY/MM/DD  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  THIS  ROUTINE  SERVES  AS  A  LINK  ROUTINE  BETWEEN  THE  MAS  *) 

(*  INTERFACE  PACKAGE  AND  THE  USER'S  APPLICATION  DEFINED  *) 

(*  PROCEDURE  MAKING  IT  FORTRAN  CALLABLE  *) 

<*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  ASSEMBLER  LANGUAGE  *) 

(*  IBM  4341/3083  VAX  11/780  SYSTEMS  *) 

(*  *) 

(*  EXECUTION  PROCEDURE:  *) 

(*  THIS  ROUTINE  IS  INVOKED  BY  A  CALL  FROM  A  MAS  INTERFACE  *) 

(*  ROUTINE  SUCH  AS  MALXEQ  OR  MAEXEQ,  IN  ORDER  TO  INVOKE  A  *) 

(*  USER  DEFINED  PROCEDURE  WHICH  IS  IN  THE  USER'S  MODULE  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  TYPE  I/O  DESCRIPTION  *) 

(*  KEYP  I  ENTITY  KEY  *) 

(*  ENTBLOCK  I  APPLICATION  DEFINED  BLOCK  *) 

(*  DATAREC  I/O  USER  PASSED  DATA  (I/O)  *) 

(*  RC  0  ERROR  CONDITION  RETURN  CODE  (PASSED  *) 

(*  ONLY,  NOT  PASSED  *) 

(*  ROUTINE  I  NAME  OF  THE  USER  DEFINED  PROCEDURE  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  PASAM  RECEIVES  CALL  FROM  MAS  PASCAL  ROUTINE.  THIS  *) 

(*  ASSEMBLER  CSECT  THEN  BRANCHES  TO  THE  USER  DEFINED  ROUTINE  *) 

(*  BY  PASSING  THE  ADDRESS  OF  THAT  ROUTINE  IN  A  BRANCH  REGISTER) 

(*  INSTRUCTION.  WHEN  THE  USER  ROUTINE  COMPLETES  PROCESSING,  *) 

(*  CONTROL  IS  RETURNED  TO  THE  MAS  PASCAL  ROUTINE  VIA  THE  *) 

(*  USER  DEFINED  ROUTINE.  *) 

<*  *) 

(*  COMMENTS:  *) 

(*  VARIABLES  ARE  NOT  ACCESSED,  BUT  ARE  PASSED  THROUGH  TO  THE  *) 


3-884 


Cl  PS560240032U 
April  1990 


(*  USER  DEFINED  ROUTINE.  *) 
(*  *) 
(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 
(*  *) 
(*  REGISTER  USAGE:  *) 
(*  R1  -  PARAMETER  LIST  *) 
(*  R15  -  BRANCHING  REGISTER  *) 
(*  *) 
(*  CHANGE  CONTROL:  *) 
(*  *) 
(*END  %INCLUDE  PASASM  *) 
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(*  %INCLUDE  RDLSM.  *) 

(**) 

PROCEDURE  RDLSM(VAR  POSITION:LISTPSTN;  CONST  LISTREF: LI STPNTR; 
VAR  KEYE:ENTKEY;  VAR  EOL: BOOLEAN;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* - *) 

<*  *) 

(*  FUNCTION  *) 

(*  READ  A  SYSTEM  LIST  AS  A  FIRST  IN  FIRST  OUT  ORDER.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  POSITION  -  INDICATING  NEXT  ENTITY  IN  LISTREF  TO  BE  READ.*) 

(*  LISTREF  -  LIST  TO  BE  READ.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  POSITION  -  UPDATED  TO  NEXT  ENTITY.  *) 

(*  KEYE  -  ENTITY  READ  FROM  LIST.  *) 

(*  EOL  -  TRUE  IF  ENTITY  WAS  READ  ELSE  FALSE.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  IF  THERE  IS  AN  ENTITY  AT  INDICATED  POSITION  THEN  PLACE  *) 

(*  NEXT  ENTITY  INDICATED  BY  POSITION  IN  KEYE,  ADJUST  *) 

(*  POSITION  TO  INDICATE  NEXT  ENTITY,  RETURN  EOL  SET  TO  *) 

(*  FALSE,  *) 

(*  ELSE  *) 

(*  RETURN  EOL  SET  TO  TRUE.  *) 

<*  *) 

(* - *) 

(**) 


(*  END  %INCLUDE  RDLSM.  *) 
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(*  %INCLUDE  RDRLSM.  *) 

(**) 

PROCEDURE  RDRLSM( CONST  POSITION:LISTPSTN;CONST  LISTREF:LISTPNTR ; 

VAR  KEYE :ENTKEY ;VAR  EOL: BOOLEAN; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  READ  THE  LAST  ENTITY  KEY  FROM  LISTREF.  *) 

<*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  POSITION  -  RELATIVE  POSITION  IN  LISTREF  OF  ENTITY  *) 

(*  TO  BE  READ.  *) 

(*  LISTREF  -  LIST  WHOSE  POSITION-TH  ENTITY  IS  TO  BE  READ.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  KEYE  -  KEY  OF  POSITION-TH  ENTITY  IN  LISTREF.  *) 

(*  EOL  -  TRUE  IF  NO  POSITION-TH  ENTITY  IN  LISTREF.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  RDRLSM.  *) 
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(*  %INCLUDE  RDTLSM.  *) 

(**) 

PROCEDURE  RDTLSM( CONST  LISTREF:LISTPNTR ; VAR  KEYEzENTKEY; 
VAR  EMPTY: BOOLEAN; VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  READ  THE  LAST  ENTITY  KEY  FROM  LISTREF.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LISTREF  -  LIST  WHOSE  LAST  ENTITY  IS  TO  BE  READ.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  KEYE  -  RETURNS  LAST  ENTITY  IN  LISTREF.  *) 

(*  EMPTY  -  TRUE  IF  NO  ENTITIES  IN  LIST,  ELSE  FALSE.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

<**) 

(*  END  ^INCLUDE  RDTLSM.  *) 
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(*  %INCLUDE  REVAADB.  *) 

(**) 

PROCEDURE  REVAADB (CONST  ENTBPNTR : ENTPNTR ; VAR  ENTDEF: ENTBLOCK; 


VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  ASSIGN  THE  VALUE  OF  A  SYSTEM  UDB  TO  AN  APPLICATION  ENTBLOCK.*) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

<*  *) 

(*  PACKAGE  *) 

(*  UDB  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  ENTBPNTR  -  POINTER  TO  ENTBLOCK  CREATED.  *) 

<*  *) 

(*  OUTPUT  *) 

(*  ENTDEF  -  THE  ENTBLOCK  WITH  THE  VALUE  OF  SYSUDB  *) 

(*  ASSIGNED  TO  IT.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  REVAADB  USES  SYSTEM  ROUTINE  AMPXMOVE  TO  MOVE  DATA  IN  *) 

(*  MEMORY.  THE  NUMBER  OF  BYTES  TO  MOVE  MUST  BE  SPECIFIED.  *) 

(*  *) 

(* - *) 

<**) 

(*  END  XINCLUDE  REVAADB.  *) 
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(*  7.INCLUDE  REVNODM  *) 

<**) 

PROCEDURE  REVNODM (VAR  KEYE : ENTKEY ; VAR  ENTDEF:ENTBLOCK; 

VAR  RR : RET_REC) ; EXTERNAL ; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  REVISE  AN  ENTITY'S  USER  DATA  BLOCK.  *) 

(*  *) 

<*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  KEY  OF  ENTITY  TO  BE  REVISED.  *) 

(*  ENTDEF  I  NEW  DATA  FOR  ENTITY  TO  BE  REVISED.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  DECLARATION  ON  KEYE  AND  ENTDEF  TO  VAR.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  % INCLUDE  REVNODM  *) 
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(*  %INCLUDE  REVRLSM.  *) 

(**) 

PROCEDURE  REVRLSM(CONST  POSITION:LISTPSTN;CONST  KEYE : ENTKEY ; 

CONST  LISTREF :LISTPNTR ; VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  CHANGE  AN  ENTITY  IN  A  SYSTEM  LIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

<*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  POSITION  -  THE  RELATIVE  POSITION  OF  THE  ENTITY  IN  *) 

(*  THE  LIST.  *) 

(*  KEYE  -  THE  NEW  ENTITY  KEY.  *) 

(*  LISTREF  -  A  POINTER  TO  A  SYSTEM  LIST.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  REVRLSM.  *) 
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(*  %INCLUDE  REVSADB  *) 

(**) 

PROCEDURE  REVSADB(VAR  ENTDEF:ENTBLOCK; VAR  ENTBPNTR.'ENTPNTR; 

VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

(*  REVISED:  84/12/10  *) 

(*  *) 

(*  FUNCTION:  *) 

(*  REPLACE  THE  VALUE  OF  A  SYSTEM  ENTBLOCK  WITH  THE  VALUE  OF  *) 

(*  ENTDEF.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

(*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTDEF  I  THE  APPLICATION  ENTBLOCK  VALUE  TO  ASSIGN  *) 

(*  TO  A  SYSTEM  ENTBLOCK.  *) 

(*  ENTBPNTR  0  POINTER  TO  THE  SYSTEM  ENTBLOCK  TO  BE  REVISED.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  REVSADB  USES  SYSTEM  ROUTINE  AMPXMOVE  TO  MOVE  DATA  IN  *) 

(*  MEMORY.  THE  NUMBER  OF  BYTES  TO  MOVE  MUST  BE  SPECIFIED.  *) 

(*  *) 

(*  COMMENTS:  *) 

<*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  ENTDEF  FROM  CONST  TO  VAR.  *) 

(*  84/12/10  MAS  VER  2  J.  JOHNSON  *) 

(*  TO  CALL  MASDSP.  *) 

<*  *) 

<* - *) 

(**) 

(*  END  XINCLUDE  REVSADB  *) 
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(*  %INCLUDE  RLSNM.  *) 

(**) 

PROCEDURE  RLSNM(VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  RELEASE  ALL  THE  LISTS  ON  THE  CURRENT  LIST  OF  LISTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  NONE  -  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  RLSNM.  *) 
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(*  %INCLUDE  RSTLSM.  *) 

«**) 

PROCEDURE  RSTLSM(VAR  POSITION:LISTPSTN; CONST  LI STREF : LI STPNTR ; 
VAR  RR:RET_REC); EXTERNAL; 


(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  RESETS  POSITION  TO  INDICATE  THE  BEGINNING  OF  A  LIST.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LISTREF  -  POINTER  TO  A  LIST.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  POSITION  -  RESET  TO  INDICATE  BEGINNING  OF  LIST.  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 


(*  END  %INCLUDE  RSTLSM.  *) 
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(*  %INCLUDE  RSTSFLG  *) 

(**) 

PROCEDURE  RSTSFLG(CONST  LISTP :LISTPNTR ; 

CONST  SETTING: BOOLEAN; VAR  RR:RET_REC) ; EXTERNAL; 

<**) 

(* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  RESET  THE  REQUESTED  POSITION  IN  THE  INTERNAL  MAS  PROCESS  *) 

(*  FLAG  (MAPROB)  IN  THE  IIT  TO  THE  REQUESTED  BOOLEAN  VALUE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ====  ===  ===========  *) 

(*  LISTP  I  THE  LIST  OF  ENTITIES  THAT  ARE  TO  HAVE  A  BYTE  *) 

(*  IN  THE  SYSUSE  FLAG  SET.  *) 

(*  SETTING  I  BOOLEAN  VALUE  THE  SYSUSE (FLG_POS)  BYTE  IS  TO  *) 

(*  BE  SET  TO.  (IE:  TRUE  OR  FALSE)  *) 

(*  RR  0  FUNCTION  RETURN  CODE  *) 

(*  =0  GOOD  RETURN  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <  0  WARNING  *) 

(*  $ COMMONS  *) 

(*  NONE  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360,370,43XX  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  FOR  EACH  ENTITY  ON  THE  LIST  OF  ENTITIES,  THE  MAPROB  *) 

(*  BYTE  IS  SET  TO  THE  INPUT  SETTING.  *) 

(*  *) 

(*  $ COMMENTS  *) 

(*  USES  THE  MAPROB  FLAG  IN  THE  T_ENTITY.  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  04/26/85  E.D.  SHREVE  W315  *) 

(*  TO  SET  THE  MAPROB  BYTE  IN  THE  T_ENTITY  INSTEAD  *) 

(*  OF  THE  SYSUSE  OF  THE  ADB.  FOR  INTERNAL  MAS.  *) 

(*  *> 

(*  ORIGINATED:  07/10/84  C.  J.  SAMPLE  W315  *) 

(* - *) 

<**) 

(*  END  %INCLUDE  RSTSFLG  *) 
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(*  %INCLUDE  RVRLSM. * ) 

(**) 

PROCEDURE  PVRLSM(VAR  KEYIN:LISTFNTR;  VAR  KEY JUT : LI 3TPNTR ; 
VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

<* - *) 

<*  *) 

(*  $ FUNCTION:  *) 

(*  CREATE  AN  OUTPUT  LIST  THAT  CONTAINS  THE  ENTITIES  ON  THE  *) 

(*  INPUT  LIST  IN  REVERSE  ORDER.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYIN  I  LIST  TO  COPY  FROM  *) 

(*  KEYOUT  0  NEW  LSIT  WITH  ENTITY’S  REVERSED  *) 

(*  RR  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  RETURN  CODE  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  NONE  *) 

<*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  MODEL  ACCESS  SOFTWARE  ROUTINE  *) 

(*  *) 


(*  ^PROCESSING  DESCRIPTION:  *) 
(*  IF  THE  INPUT  LIST  IS  NOT  EMPTY,  A  NEW  OUTPUT  LIST  IS  *) 
(*  CREATED.  THEN  THE  ENTITIES  ARE  MOVED  INTO  THE  NEW  LIST  *) 


<*  IN  REVERSE  ORDER.  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  NONE  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  ORIGINATED:  04/11/86  MAS2  E.  D.  SHREVE  W315  *) 

<*  *) 

<* - *) 

(*END - *) 

(*  END  % INCLUDE  RVRLSM.  *) 
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(*  %INCLUDE  SETRULS.  *) 

(**) 

PROCEDURE  SETRULS (CONST  USER:ENTKEY ;  CONST  CNST:ENTKEY ;  CONST 
DEL_LIST:LISTPNTR;  VAR  RULE :T_RULE ;  VAR  MIN_CNST:LISTPSTN; 
VAR  RR:RET_REC); EXTERNAL; 

%PAGE 

(**) 


(* - - - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  SET  DELETE  FLAGS  ACCORDING  TO  USER'S  DEPENDENCE  &  STRENGTH  *) 

(*  RULES.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  USER  I  USER  WHOSE  RULES  ARE  TO  BE  FOUND  BASED  ON*) 

(*  THE  RELATIONSHIP  WITH  CNST  *) 

(*  CNST  I  CNST  WHOSE  RULES  ARE  TO  BE  FOUND  BASED  ON*) 

(*  THE  RELATIONSHIP  WITH  USER  *) 

(*  DEL_LST  I  LIST  OF  KEYS  THAT  ARE  ELIGIBLE  FOR  *) 

(*  DELETION  *) 

(*  RULE  0  INDICATES  WHICH  DELETE  AND  COMPRESS  RULES*) 

(*  ARE  VALID  FOR  THIS  RELATIONSHIP  *) 

(*  MIN_CNST  0  MINIMUM  NUMBER  OF  CONSTITIUENTS  FOR  USER  *) 

(*  RR  0  THE  FUNCTION  RETURN  CODE.  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  IF  THE  USER  IS  IN  THE  DEL_LST  THEN  EXIT  *) 

(*  ELSE  *) 

(*  THE  RULES  OF  THE  CONNECTION  ARE  FOUND  AND  THE  RULE  SET  IS  *) 

(*  FILLED  APPROPRIATELY  *) 

<*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 
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(* 

(* 

<* 

(* 

(* 

(* 

<* 


REVISED:  06/17/86  B.  A.  ULMER  FRMI  *) 

ADD  NEW  PARAMETERS  TO  SETRULS  AND  CHANGE  PROCESSING  TO  HANDLE  *) 
THE  NEW  DELETE  RULES  -  MAJOR  REWRITE  *) 

*) 

REVISED:  09/  /85  B.  A.  ULMER  FRMI  *) 

ADD  NEW  PARAMETERS  TO  FNDURUL  TO  HANDLE  TWO  NEW  DELETE  RULES  *) 

*) 
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(*  %INCLUDE  SORTDLST .  *) 

(**) 

PROCEDURE  SORTDLST ( CONST  DEL_LST :LISTKEY;VAR  SRT_LST:LISTPNTR; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  $ FUNCTION:  *) 

(*  GIVEN  AN  APPLICATION  LIST  OF  ENTITIES  TO  BE  DELETED,  *) 

(*  DEL_LST  RETURNS  A  SYSTEM  LIST  SORTED  IN  USER-CONSTITUENT  *) 

(*  ORDER  IN  SRT.LST.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

<*  NAME  I/O  DESCRIPTION  *) 

(*  DELJLST  I  APPLICATION  LIST  CONTAINING  THE  LISTKEY  *) 

(*  OF  TH  E  ENTITIES  TO  BE  DELETED  *) 

(*  SRT_LST  0  POINTER  TO  A  SYSTEM  LIST  CONTAINING  THE  *) 

(*  ENTITIES  OF  THE  DELJLST  SORTED  IN  USER-  *) 

(*  CONSTITUENT  ORDER  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =0  OK  *) 

(*  >0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

<*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  SET  MAPROB  FLAG  ON  FOR  ALL  ENTITIES  IN  THE  DEL-LST  *) 

(*  THAT  ARE  NOT  ’MARKED  FOR  DELETE’  *) 

(*  REPEAT  FOR  EACH  ENTITY  IN  DEL_LST  *) 

(*  IF  NOT  PROCESSED  (MAPROB  =  FALSE)  *) 

(*  CALL  SRTBYUSR  TO  PUT  ALL  USER  ENTITIES  ON  THE  *) 

(*  SRT_LST  BEFORE  ADDING  THE  ENTITY.  *) 

(*  RESET  MAPROB  AND  MAPR0B2  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  USES  NDS  PROCEDURES  RSTLSM,  RDLSM,  NEWLSM  AND  SRTBYUSR  *) 

<*  *) 
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(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  12/17/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGE  SRTBYUSR  TO  SRTBYCNT  -  SORT  LIST  NOW  IN  CONSTITUENT  TO  *) 

(*  USER  ORDER  *) 

(*  *) 

(*  REVISED:  12/03/85  E.  D.  SHREVE  FRMI  *) 

(*  REWRITTEN  TO  REPLACE  THE  COMPARE  SORT  WITH  A  SUBROUTINE  THAT  *) 

(*  USES  THE  SYSTEM  FLAGS  (MAPROB  AND  MAPR0B2)  FOR  SORTING  *) 

<*  *) 

(*  REVISED:  07/01/85  B.  A.  ULMER  FRMI  *) 

(*  ELIMINATE  THE  LEAVE  FUNCTION  TO  IMPROVE  C OMPATAB I L I TY  WITH  VAX  *) 
(*  * ) 

(*  REVISED:  04/10/85  B.  A.  ULMER  FRMI  *) 

(*  DO  NOT  PROCESS  THE  ALREADY  "MARKED  FOR  DELETE"  ENTITIES  *) 

(*  *) 

(*  ORIGINATED:  06/19/84  R.  A.  MCCLUSKEY  FRMI  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 


(*  END  ^INCLUDE  SORTDLST.  *) 

<**) 
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(*  %INCLUDE  SORTLSM.  *) 

(**) 

PROCEDURE  SORTLSM(VAR  LISTREF:LISTPNTR;  CONST  PROCNAME: ROUTINE; 

VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  SORT  A  SYSTEM  LIST.  *) 

(*  *> 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  LIST  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  LISTREF  -  LIST  TO  BE  SORTED.  *) 

<*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(*  METHOD  *) 

(*  THE  SYSTEM  LIST  LISTREF  IS  SORTED  IN  APPLICATION  DEFINED  *) 


(*  ORDER.  THE  ORDER  IS  DETERMINED  BY  A  USER  DEFINED  FUNCTION;  *) 
(*  ORDER.  ORDER  RETURNS  FALSE  IF  TWO  ENTITIES  ARE  IN  ORDER  ELSE*) 
(*  IT  RETURNS  TRUE.  IF  LISTREF  HAS  LESS  THAN  TWELVE  ENTITIES,  *) 
(*  THE  BUBBLE  SORT  ALGORITHM  IS  USED.  IF  LISTREF  CONTAINS  MORE  *) 


(*  THAN  ELEVEN  ENTITIES  A  SLIGHT  VARIATION  OF  QUICK  SORT  IS  *) 

(*  USED  WHEN  THE  SUBLISTS  CREATED  BY  STANDARD  QUICK  SORT  *) 

(*  CONTAIN  LESS  THAN  TWELVE  ENTITIES,  SORTLSM  REVERTS  BACK  TO  *) 

(*  BUBBLE  SORT.  IN  GENERAL  SORTLSM  IS  FASTER  THAN  EITHER  *) 

(*  BUBBLE  SORT  OR  QUICK  SORT.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  XINCLUDE  SORTLSM.  *) 
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(*  %INCLUDE  SRTBYCNT,  *) 

(**) 

PROCEDURE  SRTBYCNT(VAR  KEY1 :ENTKEY;VAR  SRT_LST :LISTPNTR ; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* - *> 

(*  *) 

(*  $ FUNCTION:  *) 

(*  THIS  IS  A  RECURSIVE  ROUTINE  THAT  PLACES  THE  CNST  ENTITIES  *) 

(*  OF  KEY1,  THAT  ARE  ON  THE  DELETE  LIST,  INTO  THE  SRT_LST  *) 

(*  BEFORE  KEY1  IS  ADDED.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEY1  I  THE  ENTITY  THAT  WILL  BE  PLACED  ON  THE  *) 

(*  OUTPUT  LIST  ALONG  WITH  ITS  CONSTITUENTS  *) 

(*  SRTJLST  0  POINTER  TO  A  SYSTEM  LIST  CONTAINING  THE  *) 

(*  ENTITIES  OF  THE  DEL_LST  SORTED  IN  *) 

(*  CONSTITUENT-USER  ORDER  *) 

(*  RC  0  EXTERNAL  RETURN  CODE  *) 

(*  =  0  OK  *) 

(*  >  0  CRITICAL  ERROR  *) 

(*  <0  WARNING  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  (ALL  ENTITIES  THAT  WERE  OH  THE  ORIGINAL  DELETE  LIST  HAVE  BEEN  *) 

(*  FLAGGED  IN  THE  ENTITY  BLOCK  (MAPROB  =  TRUE))  *) 

(*  EACH  CNST  OF  KEY1  IS  PROCESSED:  *) 

(*  IF  NOT  PROCESSED  (MAPR0B2  =  FALSE)  AND  IN  THE  DELETE  *) 

<*  LIST  (MAPROB  =  TRUE)  THEN  *) 

(*  CALL  SRTBYCNT  TO  PUT  THE  CNST  ENTITY  ON  SRT_LST  *) 

(*  ADD  REY1  TO  THE  SRT_LST.  *) 

(*  SET  KEY1  (MAPR0B2  =  TRUE)  *) 

(*  *) 

(*  ^COMMENTS:  *) 
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(*  USES  NDS  PROCEDURES  RSTLSM .  RDLSM,  AND  SRTBYCNT  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  CREATED:  12/17/85  B.  A.  ULMER  FRMI  *) 

(*  THIS  ROUTINE  IS  USED  BY  SORTDLST  FOR  SORTING.  IT  REPLACES  *) 

(*  THE  COMPARE  SORT  IN  THE  OLD  SORTDLST  WHICH  WAS  INEFFICIENT.  *) 

(*  *) 

(* - *) 

%PAGE  *) 

(* - *) 

(*  DATA  STRUCTURES/MAJOR  VARIABLES:  *) 

(*  THESE  ARE  DESCRIBED  IN  THE  NDSDCL  INCLUDE  MEMBER.  *) 

(* - *) 

(*  *) 

(**) 

(*  END  %INCLUDE  SRTBYCNT.  *) 

(**) 
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(*  %INCLUDE  UPDCRBE  *) 

(**) 

PROCEDURE  UPDCRBE (CONST  CRB:CRBPNTR;  CONST  EKEY :ENTKEY ; 

VAR  POSrLISTPSTN;  VAR  DIR:LISTDIR;  VAR  RR:RET_REC) ; EXTERNAL; 


(**) 

(* — 

- *) 

(* 

*) 

(* 

AUTHOR: 

B.  A.  ULMER  FRMI  CREATED:  85/02/08 

CC??*) 

(* 

VERSION : 

XXXX  REVISED:  YY/MM/DD 

CC  *) 

(* 

*) 

(* 

FUNCTION: 

*) 

(* 

UPDATE 

AN  ENTRY  IN  THE  CRB 

*) 

(* 

*) 

(* 

ENVIRONMENT: 

*) 

(* 

IBM  PASCAL  LANGUAGE 

*) 

(* 

IBM  30XX,  43XX  DEPENDENT  CODE,  OR  OTHER  APPROPRIATE  H/W. 

*) 

(* 

*) 

(* 

EXECUTION 

PROCEDURE: 

*) 

(* 

HOW  IS 

THIS  ROUTINE/MODULE  TO  BE  EXECUTED. 

*) 

(* 

*) 

(* 

descript: 

ON  OF  ARGUMENTS: 

*) 

(* 

NAME 

I/O  DESCRIPTION 

*) 

(* 

CRB 

I/O  CONSTITUENT  READ  BLOCK  ADDRESS 

*) 

(* 

EKEY 

I  ENTITY  KEY  OF  ENTRY  TO  UPDATE 

*) 

(* 

POS 

I  NEW  LIST  POSITION  SETTING 

*) 

(* 

DIR 

I  NEW  DIRECTION  OF  LIST  (FORWARD  OR  REVERSE) 

*) 

( * 

RR 

0  ERROR  CONDITION  RETURN  CODE 

*) 

(* 

=  0  OK  RETURN  CODE 

*) 

(* 

=  1  YOU  BLEW  IT 

*) 

(* 

=  2  THE  ROUTINE  BLEW  IT 

*) 

(* 

*) 

(* 

COMMONS : 

*) 

(* 

C0M1 

*) 

(* 

VAR1 

I  VAR1  NAME  MUST  BE  FILLED,  CHARACTER  DATA 

*) 

(* 

MUST  BE  PROVIDED 

*) 

(* 

VAR2 

I  VAR2  MUST  BE  SPECIFIED 

*) 

(* 

COM2 

*) 

(* 

VAR3 

I  CHARACTER  DATA  MUST  BE  SPECIFIED 

*) 

(* 

*) 

(* 

PROCESSING  DESCRIPTION: 

*) 

(* 

DETAILED  DESCRIPTION  OF  HOW  THIS  ROUTINE  WORKS,  WHICH 

*> 

<* 

FILES 

NEED  TO  BE  OPENED/CLOSED,  FILES  USED,  ETC. 

*) 

(* 

*) 

(* 

COMMENTS : 

*) 

(* 

TEXT 

OF  ANY  FURTHER  COMMENTS  WHICH  MIGHT  HELP  TO  UNDER 5 

TAND*) 

<* 

THE  FUNCTION/EXECUTION  OF  THIS  ROUTINE. 

*) 
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(*  CHANGE  CONTROL:  *) 

(*  YY/MM/DD  CCZZ  I.  M.  THECHANGER  *) 

(*  DESCRIPTION  OF  LATEST  CHANGE  MADE.  *) 

(*  YY/MM/DD  CCYY  I.  M.  THEPROGRAMMER  *) 

(*  DESCRIPTION  OF  CHANGE  MADE.  IF  LENGTHY,  CONTINUE  THE  *) 

(*  NARRATION  ON  THE  NEXT  LINE.  *) 

(*  YY/MM/DD  CCXX  I.  M.  APERSON  *) 

(*  DESCRIPTION  OF  FIRST  CHANGE  MADE.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  % INCLUDE  UPDCRBE  *) 
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(*  %INCLUDE  VERAPN.  *) 

(**) 

PROCEDURE  VERAPN(CONST  KEY1 : ANYKEY; CONST  KEY2 : ANYKEY ; 

VAR  RR:RET_REC); EXTERNAL; 

(**) 

(* - 

(* 

(*  FUNCTION 

(*  VERIFY  LEGALITY  OF  APPENDING  AN  ENTITY  OR  LIST  OF  ENTITIES 

(*  (KEY2)  TO  AN  ENTITY  OR  LIST  OF  ENTITIES  (KEY1) . 

(* 

(*  LANGUAGE 

(*  PASCAL. 

(* 

(*  PACKAGE 

(*  VERIFY  PACKAGE. 

(* 

(*  ARGUMENTS 

(*  INPUT 

(*  KEY1 

(* 

(* 

(*  KEY2 

(* 

(* 

(* 

(*  OUTPUT 

(*  RR 

(* 

(* - 

(**) 

(*  END  XINCLUDE  VERAPN.  *) 


-  KEY  OF  APPLICATION  LIST  TO  WHICH  ENTITIES 
ARE  TO  BE  APPENDED.  IF  ENTITY  KEY,  THEN 
ADD  TO  CONSTITUENT  LIST. 

-  KEY  OF  APPLICATION  LIST  OF  ENTITIES  TO 
APPEND.  IF  ENTITY  KEY,  THEN  ADD  ENTITY 
TO  LIST. 


-  THE  FUNCTION  RETURN  RECORD. 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

* 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

.*) 
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(*  7.INCLUDE  VERCN.  *) 

(**) 

PROCEDURE  VERCN(CONST  KEYLU.-LISTKEY; CONST  KE YLC : LI STKEY ; 
VAR  RR:RET_REC); EXTERNAL; 


(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  VERIFY  LEGALITY  OF  CONNECTING  EACH  ENTITY  ON  A  LIST  OF  *) 

(*  USERS  TO  EACH  ENTITY  ON  A  LIST  OF  CONSTITUENTS.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  VERIFY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYLU  -  KEY  OF  LIST  OF  USERS.  *) 

(*  KEYLC  -  KEY  OF  LIST  OF  CONSTITUENTS.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 


(*  END  %INCLUDE  VERCN.  *) 
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(*  ^INCLUDE  VERCR  *) 

(**) 

PROCEDURE  VERCR(VAR  ENTDEF :ENTBLOCK; CONST  KEYE: ANYKEY; 

VAR  RR : RET_REC ) ; EXTERNAL ; 

(**) 

(* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

C*  *) 

(*  FUNCTION:  *) 

(*  VERIFY  LEGALITY  OF  CREATING  AN  ENTITY  WITH  THE  USER  *) 

(*  SUPPLIED  ENTITY  DATA  BLOCK  AND  LIST  OF  CONSTITUENTS.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

<*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTDEF  I  USER  SUPPLIED  DATA  FOR  ENTITY  BLOCK.  *) 

(*  KEYE  I  KEY  OF  ENTITY  OR  APPLICATIONS  LIST  OF  *) 

(*  ENTITIES  TO  BE  CONSTITUENTS  OF  THIS  ENTITY.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  ENTDEF  FROM  CONST  TO  VAR.  *) 

(*  *) 

(* - - - *) 

(**) 

(*  END  XINCLUDE  VERCR  *) 
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(*  %INCLUDE  VERDEL.  *) 

(**) 

PROCEDURE  VERDEL(CONST  KEYE : ANYKEY; VAR  RR : RET_REC) ; EXTERNAL ; 

(**) 

(* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  VERIFY  LEGALITY  OF  DELETING  AN  ENTITY.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  VERIFY  PACKAGE.  *) 

(*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  ENTITY  TO  BE  DELETED  FROM  NETWORK.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  VERDEL.  *) 
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(*  %INCLUDE  VERGT .  *) 

(**) 

PROCEDURE  VERGT (CONST  KEYE :ENTKEY;VAR  RR:RET_REC) ; EXTERNAL; 

(**) 

<* - *) 

(*  *) 

(*  FUNCTION  *) 

(*  VERIFY  LEGALITY  OF  RETRIEVING  AN  ENTITY  WITH  THE  USER  *) 

(*  SUPPLIED  ENTITY  KEY.  *) 

(*  *) 

(*  LANGUAGE  *) 

(*  PASCAL.  *) 

(*  *) 

(*  PACKAGE  *) 

(*  VERIFY  PACKAGE.  *) 

<*  *) 

(*  ARGUMENTS  *) 

(*  INPUT  *) 

(*  KEYE  -  KEY  OF  ENTITY  TO  BE  RETRIEVED  FROM  NETWORK.  *) 

(*  *) 

(*  OUTPUT  *) 

(*  RR  -  THE  FUNCTION  RETURN  RECORD.  *) 

(*  *) 

(* - *) 

(**) 

(*  END  %INCLUDE  VERGT.  *) 
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(*  7.INCLUDE  VERUD  *) 

(*  (VERFORM)  VERIFY  ROUTINE  FORMALS .  *) 

(**) 

PROCEDURE  VERUD(CONST  KEYE :ENTKEY ;VAR  ENTDEF:ENTBLOCK; 

VAR  RR:RET_REC); EXTERNAL; 

<**) 

<* - *) 

(*  *) 

(*  AUTHOR:  UNKNOWN  CADD  CREATED:  YY/MM/DD  CC  *) 

(*  VERSION:  MAS  VER  2  REVISED:  84/10/11  CC  *) 

<*  *) 

(*  FUNCTION:  *) 

(*  VERIFY  LEGALITY  OF  UPDATING  AN  ENTITY  WITH  THE  USER  *) 

(*  SUPPLIED  ENTITY  KEY  USING  THE  USER  SUPPLIED  ENTITY  DATA  *) 

(*  BLOCK  AND  LIST  OF  CONSTITUENTS.  *) 

(*  *) 

(*  ENVIRONMENT:  *) 

(*  IBM  PASCAL  LANGUAGE  *) 

(*  IBM  30XX,  43XX,  DEC  VAX  11/780  *) 

<*  *) 

(*  DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I  KEY  OF  EXISTING  ENTITY.  *) 

(*  ENTDEF  I  USER  SUPPLIED  DATA  FOR  NEW  ENTITY  BLOCK.  *) 

(*  KEYL  I  KEY  OF  LIST  OF  CONSTITUENTS  TO  BE  CONNECTED  *) 

(*  TO  THIS  ENTITY.  *) 

(*  RR  0  ERROR  CONDITION  RETURN  CODE.  *) 

(*  =0  NORMAL  RETURN  CODE.  *) 

(*  *) 

(*  COMMONS:  *) 

(*  *) 

(*  PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  COMMENTS:  *) 

(*  *) 

(*  CHANGE  CONTROL:  *) 

(*  84/10/11  MAS  VER  2  D.  J.  KERCHNER  *) 

(*  UPDATED  DOCUMENTATION.  *) 

(*  84/10/04  MAS  VER  2  E.  D.  SHREVE  *) 

(*  CHANGED  ENTDEF  FROM  CONST  TO  VAR.  *) 

(*  *> 

(* - *) 

(**) 

(*  END  % INCLUDE  VERUD  *) 
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(*  %INCLUDE  XI EMM.  *) 

(**) 

PROCEDURE  XIEMM(VAR  KEYE :ENTKEY ; VAR  RR : RET_REC) ; EXTERNAL ; 

(**) 

<* - *) 

(*  *) 

(*  $ FUNCTION :  *) 

(*  TO  DELETE  AN  ENTITY.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KEYE  I/O  KEY  OF  ENTITY  TO  BE  DELETED,  WILL  BE  *) 

(*  SET  TO  NIL.  *) 

(*  *) 

(*  RR  0  THE  FUNCTION  RETURN  CODE.  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  INTERNAL  PROCEDURE  FOR  THE  MODEL  ACCESS  SOFTWARE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  *) 

(*  REVISED:  09/13/85  L.  J.  BEHAN  FRMI  *) 

(*  CHANGED  TO  ENSURE  THE  DECREMENTING  OF  THE  READ  POSITION  OF  A  *) 

(*  USER  ENTITY  CONSTITUENT  LIST  *) 

(*  *) 

(*  REVISED:  02/18/85  B.  A.  ULMER  FRMI  *) 

(*  CHANGED  THE  STRUCTURE  OF  THE  INTERNAL  ITEM  FOR  THE  *) 

(*  IMPLEMENTATION  OF  THE  CRB  *) 

<*  *) 

(*  REVISED:  10/05/84  E.  D.  SHREVE  FRMI  *) 

(*  CHANGED  THE  KEYE  PARMS  FOR  XULST  AND  XCLST  TO  VAR  *) 

(*  *) 
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3.10.3  Name/Value  Interface 


3.10.3.1  Index 


Routine 


Function 


ADBLOCA 

ENUMLOCA 

GETDD 

GETDDBN 

NVCPATAV 

NVCPAV 

NVCRTM 

NVDLTM 

NVDQAN 

NVDQARLO 

NVDQARPT 

NVDQGTAV 

NVDSARLO 

NVDSARPT 

NVDSAV 

NVDSENLO 

NVDSGTAV 

NVEQAV 

NVGEAV 

NVGRAV 

NVGTAN 

NVGTAT 

NVGTDD 

NVGTED 

NVGTRS 

NVLCAV 

NVLEAV 

NVLTAV 

NVNEAV 

NVPQARLO 

NVPQARPT 

NVPQAV 

NVRTVRS 

RSCPAI 

RSCPAT 

RSCPCI 

RSCPCT 

RSCPEI 

RSCPET 

RSGTDD 

RSTRDD 


DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 
DETERMINE  THE  LOCATION  OF  THE  ENUMERATION  TYPE. 

RETRIEVE  THE  DATA  DICTIONARY  ENTRY  FOR  THE  ENTITY  KIND. 

RETRIEVE  THE  DATA  DICTIONARY  ENTRY  FOR  THE  ENTITY  NAME. 

COPY  A  VALUE  OF  ARBITRARY  SIZE. 

COPY  A  VALUE  OF  ARBITRARY  SIZE. 

ENTER  ATTRIBUTE  NAMES  INTO  TRAVELSAL  MAP. 

DELETE  TRAVERSAL  MAP. 

RETRIEVE  THE  VALUE  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ARRAY  (NON-POINTER). 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ARRAY  (POINTER). 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 
DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ARRAY  (NON-POINTER). 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ARRAY  (POINTER). 

REPLACE  THE  VALUE  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 

DETERMINE  THE  LOCATION  OF  THE  ENUMERATION  TYPE. 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 

IF  VALUE  EQUAL,  THEN  ADD  ENTITY  TO  LIST. 

IF  VALUE  GREATER  OR  EQUAL,  THEN  ADD  ENTITY  TO  LIST. 

IF  VALUE  GREATER,  THEN  ADD  ENTITY  TO  LIST. 

EXTRAS  ATTRIBUTE  NAME  FROM  STRING  OF  QUALIFIERS. 

GET  DATA  DICTIONARY  ATTRIBUTE  DEFINTION. 

GET  DATA  DICTIONARY  ENTITY  DEFINITION. 

GET  ENTITY  KIND,  ADB  SIZE,  NUMBER  OF  CONSTITUENTS. 

GET  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION. 

LOCATE  ATTRIBUTE  VALUE  USING  TRAVERSAL  MAP. 

IF  VALUE  LESS  OR  EQUAL,  THEN  ADD  ENTITY  TO  LIST. 

IF  VALUE  LESS,  THEN  ADD  ENTITY  TO  LIST. 

IF  VALUE  NOT  EQUAL,  THEN  ADD  ENTITY  TO  LIST. 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ARRAY  (NON-POINTER). 
DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ARRAY  (POINTER). 

CREATE  LIST  OF  ENTITIES  WITH  THE  SPECIFIED  VALUE  FOR  THE 
SPECIFIED  ATTRIBUTE  FOR  THE  SPECIFIED  KIND  OF  ENTITY. 

RETRIEVE  ENTITY  DEFINITIONS  FROM  THE  FILE. 

COPY  ARRAY  INDEX  TABLE  INTO  THE  RUN-TIME  SUBSCHEMA. 

COPY  SIZE  AND« LOWER  BOUND  OF  ARRAY  INTO  THE  RUN-TIME  SUBSCHEMA. 
COPY  THE  POINTER  INDEX  TABLE  INTO  THE  RUN-TIME  SUBSCHEMA. 

COPY  THE  KINDS  OF  POINTERS  INTO  THE  RUN-TIME  SUBSCHEMA. 

COPY  THE  ENUMERATION  INDEX  TABLE  INTO  THE  RUN-TIME  SUBSCHEMA. 

COPY  THE  ENUMERATION  VALUES  INTO  THE  RUN-TIME  SUBSCHEMA. 

BUILD  RUN-TIME  SUBSCHEMA  FROM. DATA  DICTIONARY  ENTRY. 

TRANSLATE  A  DATA  DICTIONARY  ENTRY  INTO  A  RUN-TIME  SUBSCHEMA  ENTRY. 
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3.10.3.2  Listings 

(*  BEGIN  %INCLUDE  ADBLOCA  ********************************************) 


(*  *) 

FUNCTION  ADBLOCA  (  CONST  ENTITY_POINTER  :  ENTPIITR ; 

CONST  OFFSET  :  INTEGER) 

:  T_VAR I ANT_PO INTER; 

EXTERNAL; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  ENTITY_PO INTER  I  POINTER  TO  ADB  OF  ENTITY  INSTANCE  *) 

(*  OFFSET  I  OFFSET  TO  ATTRIBUTE  VALUE  *) 

(*  ADBLOCA  0  POINTER  TO  ATTRIBUTE  VALUE  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  $ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXE CUT I ON  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  POINT  TO  ATTRIBUTE  LOCATION  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  06  NOVEMBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  XINCLUDE  ADBLOCA  **********************************************) 
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(*  BEGIN  XINCLUDE  ENUMLOCA  ********************************************) 
(*  *) 


FUNCTION  ENUMLOCA  (  CONST  ENTITY_PO INTER  :  ENTPNTR ; 

CONST  INDEX  :  INTEGER; 

CONST  SCHEMA  :  T_SCHEMA_POINTER  ) 

:  T_VARIANT_POINTER; 

EXTERNAL ; 

(* 

(*  $ FUNCTION: 

(*  DETERMINE  THE  LOCATION  OF  THE  ENUMERATION  TYPE. 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 


^DESCRIPTION  OF  ARGUMENTS: 
NAME  I/O 


DESCRIPTION 


ENTITY_POINTER 

ENUMLOCA 

INDEX 

SCHEMA 


I  POINTER  TO  ADB  OF  ENTITY  INSTANCE 
0  POINTER  TO  ATTRIBUTE  VALUE 

I  INDEX  OF  THE  CURRENT  SEGMENT 

I  RUN-TIME  SUBSCHEMA  ENTITY 


$ COMMONS: 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


(* 

(*  ^EXECUTION  PROCEDURE: 

(*  NAME/VALUE  INTERFACE 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 


(* 

(*  iPROCESSING  DESCRIPTION: 

(*  REQUEST  POINTER  TO  SELECTOR  IN  ADB  OF  ENTITY  INSTANCE 

(*  POINT  TO  ENUMERATION  INDEX  TABLE  IN  RUN-TIME  SUBSCHEMA 

(*  POINT  TO  ENUMERATION  VALUES  TABLE  IN  RUN-TIME  SUBSCHEMA 

(*  POINT  TO  ATTRIBUTE  VALUE 

(* 

(*  ^COMMENTS: 

(* 

<*  J CHANGE  CONTROL: 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION) 

(*  ORIGINATED:  06  NOVEMBER  1986,  M.  H.  CHOI,  DBMA 

(* 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


(*  END  XINCLUDE  ENUMLOCA  **********************************************) 
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(*  BEGIN  %INCLUDE  GETDD 

(* 

PROCEDURE  GETDD  (  CONST 

CONST 

CONST 

VAR 

VAR 

VAR 

EXTERNAL; 


<* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 


***********************************************) 

*) 

INTEGER; 

INTEGER; 

CHAR; 

T_USER_ARRAY ; 

INTEGER; 

INTEGER  ); 


KIND 

MAX_AVAIL 
ATTRIBUTE_ORDER 
USER_ARRAY 
MAX_ACTUAL 
RETURN  CODE 


$FUNCTION: 

READ  THE 


DATA  DICTIONARY  INTO  THE  APPLICATION  PROGRAM. 


$DESCRIPTION  OF  ARGUMENTS; 
NAME 

ATTRIBUTE  ORDER 


KIND 

MAX_ACTUAL 
MAX  AVAIL 


USER_ARRAY 
RETURN  CODE 


I/O  DESCRIPTION 


SPECIFICATION  OF  THE  ORDER  FOR 
ATTRIBUTES  IN  THE  ENTITY 
DEFINTION 

A  KIND  NUMBER  OF  ENTITY 
AN  ACTUAL  NUMBER  OF  RECORDS  IN 
ENTITY  DEFINITION 
A  NUMBER  OF  80  CHARACTER  RECORDS 
AVAILABLE  IN  CALLER  TO  HOLE 
ENTITY  DEFINITION 
AN  ENTITY  DEFINITION 
RETURN  CODE 


I 

0 


0 

0 


-1  =  ACTUAL  SIZE  GREATER  THAN 
SPACE  AVAILABLE 
0  =  SUCCESS 

1  =  KIND  NOT  IN  DATA  DICTIONARY 


$ COMMONS: 

^ENVIRONMENT ; 
LANGUAGE ; 
HARDWARE 


IBM  PASCAL 
SYSTEM;  IBM 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


^EXECUTION  PROCEDURE: 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

^PROCESSING  DESCRIPTION: 

LOOP  THROUGH  DATA  DICTIONARY  INDEX  FILE 
IF  KIND  IN  DATA  DICTIONARY  THEN 

GET  ENTITY  DEFINITION  FROM  DDFILE 

FILL  UP  THE  ARRAY  OF  ENTITY  DEFINITIONS  UP  TO  NUMBER 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 
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(*  OF  RECORDS  AVAILABLE  IN  CALLER  *) 
(*  END  IF  *) 
(*  END  LOOP  *) 
(*  *) 
(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  ORIGINATED:  23  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 
(*  END  ^INCLUDE  GETDD  a***********************************************) 
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(*  BEGIN  %INCLUDE 

(* 

PROCEDURE  GETDDBN 


GETDDBN 

****************: 

(  CONST 

ENTITY_NAME 

CONST 

MAX_AVAIL 

CONST 

ATTRIBUTE_ORDER 

VAR 

USER_ARRAY 

VAR 

MAX_ACTUAL 

VAR 

RETURN  CODE 

***************************) 

*) 

:  T_ENTITY_NAME ; 

:  INTEGER; 

:  CHAR; 

:  T_USER_ARRAY ; 

:  INTEGER; 

:  INTEGER  ); 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 


EXTERNAL; 

*) 

$ FUNCTION :  *) 

READ  THE  DATA  DICTIONARY  INTO  THE  APPLICATION  PROGRAM,  *) 

GIVEN  THE  ENTITY  NAME.  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

ATTRIBUTE_ORDER  I  SPECIFICATION  OF  THE  ORDER  FOR  *) 

ATTRIBUTES  IN  THE  ENTITY  *) 

DEFINTION  *) 

ENTITY_NAME  I  AN  ENTITY  NAME  *) 

MAX_ACTUAL  0  AN  ACTUAL  NUMBER  OF  RECORDS  IN  *) 

ENTITY  DEFINITION  *) 

MAX_AVAIL  I  A  NUMBER  OF  80  CHARACTER  RECORDS  *) 

AVAILABLE  IN  CALLER  TO  HOLE  *) 

ENTITY  DEFINITION  *) 

USER_ARRAY  0  AN  ENTITY  DEFINITION  *) 

RETURN_CODE  0  RETURN  CODE  *) 

-1  =  ACTUAL  SIZE  GREATER  THAN  *) 

SPACE  AVAILABLE  *) 

0  =  SUCCESS  *) 

1  =  KIND  NOT  IN  DATA  DICTIONARY  *) 

*) 

$  COMMONS:  *) 

*) 

^ENVIRONMENT :  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*> 

^EXECUTION  PROCEDURE:  *) 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

LOOP  THROUGH  DATA  DICTIONARY  INDEX  FILE  *) 

IF  ENTITY  NAME  IN  DATA  DICTIONARY  THEN  *) 

GET  ENTITY  DEFINITION  FROM  DDFILE  *) 
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(*  FILL  UP  THE  ARRAY  OF  ENTITY  DEFINITIONS  UP  TO  NUMBER  *) 


(*  OF  RECORDS  AVAILABLE  IN  CALLER  *) 
(*  END  IF  *) 
(*  END  LOOP  *) 
(*  *> 
(*  ^COMMENTS:  *) 
(*  *) 
(*  ^CHANGE  CONTROL:  *) 
(*  ORIGINATED:  24  NOVEMBER  1987,  M.  H.  CHOI,  DBMA  *) 
<*  *) 


(*  END  %INCLUDE  GETDDBN  ***********************************************) 
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(*  BEGIN  %INCLUDE  NVCPATAV  ********************************************) 
(*  *) 

PROCEDURE  NVCPATAV  (  VAR  OUTPUT_VALUE  :  T_W0RD; 

CONST  INPUT_VALUE  :  T_WORD; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL ; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  COPY  A  VALUE  OF  ARBITRARY  SIZE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  I NPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  S I ZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  $ ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ATTRIBUTE  VALUE  *) 

<*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  ORIGINATED:  14  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  NVCPATAV  **********************************************) 
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(*  BEGIN  %INCLUDE  NVCPAV  **********************************************) 

(*  *) 

PROCEDURE  NVCPAV  (  VAR  OUTPUT_VALUE  :  T_VALUE ; 

CONST  INPUT_VALUE  :  T_VALUE ; 

CONST  S I ZE_0 F_VALUE  :  INTEGER); 

EXTERNAL ; 

(*  *) 

(*  $ FUNCTION:  *) 

(*  COPY  A  VALUE  OF  ARBITRARY  SIZE.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  S I ZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ATTRIBUTE  VALUE  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  16  MAY  1986,  GEORGE  A.  WHITE,  FRMI ,  REORGANIZED  *) 

(*  GLOBAL  DECLARATIONS  INTO  'NVITYP'.  *) 

(*  ORIGINATED:  15  OCTOBER  1985,  G.  A.  WHITE,  FRMI  *) 

(*  *) 

(*  end  %INCLUDE  NVCPAV  ************************************************) 
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(*  BEGIN  %INCLUDE  NVCRTM  **********************************************) 


(*  *) 
PROCEDURE  NVCRTM  (  CONST  NAME_STRING  :  T_ATTR I BUTE_NAME ; 

VAR  NAME_R00T  :  T_NAME_P0 INTER; 

VAR  TRAVERSAL_DEPTH  :  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  ENTER  ATTRIBUTE  NAMES  INTO  TRAVERSAL  MAP.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  NAMEJSTRING  I  SCHEMA  NAME  FOR  THE  ATTRIBUTE  WHICH  *) 

(*  IS  TERMINATED  BY  A  NULL  (HEX  '00').  *) 

(*  NAME_ROOT  0  POINTER  TO  TRAVERSAL  MAP  WHICH  *) 

(*  CONTAINS  ATTRIBUTE  NAMES  AND  THE  *) 

(*  CORRESPONDING  SCHEMA  DEFINITIONS.  *) 

(*  NO_OF_DIMENSION  0  NUMBER  OF  ARRAY  DIMENSION  *) 

(*  TRAVERSAL_DEPTH  0  NUMBER  OF  NAMES  *) 

(*  *> 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  ATTRIBUTE  NAME  STRING  *) 

(*  OBTAIN  ATTRIBUTE  NAME  FROM  ATTRIBUTE  NAME  STRING  *) 

(*  STORE  ATTRIBUTE  NAME  IN  THE  TRAVERSAL  MAP  *) 

(*  INCREMENT  TRAVERSAL_DEPTH  *) 

(*  ENDLOOP  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  05  MAY  1986,  M.  H.  CHOI,  FRMI  *) 

(*  *) 


(*  END  XINCLUDE  NVCRTM  ************************************************) 
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(*  BEGIN  XINCLUDE  NVDLTM  **********************************************) 
(*  *) 

PROCEDURE  NVDLTM  (  VAR  NAME_ROOT  :  T_NAME_PO INTER; 

VAR  TRAVERS AL_S I ZE  :  INTEGER  ); 

SUBPROGRAM; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  DELETE  TRAVERSAL  MAP.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  NAME_ROOT  I  POINTER  TO  TRAVERSAL  MAP  WHICH  *) 

(*  CONTAINS  ATTRIBUTE  NAMES  AND  THEIR  *) 

(*  CORRESPONDING  SCHEMA  DEFINITIONS.  *) 

(*  TRAVERS AL_S I ZE  0  NUMBER  OF  NAMES  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  ATTRIBUTE  NAMES  *) 

(*  LOOP  THROUGH  SCHEMA  DEFINITIONS  FOR  ATTRIBUTE  NAME  *) 

(*  DELETE  ATTRIBUTE  DEFINITION  *) 

(*  INCREMENT  TRAVERSAL  MAP  SIZE  *) 

(*  ENDLOOP  *) 

(*  DELETE  ATTRIBUTE  NAME  *) 

(*  ENDLOOP  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  05  MAY  1986,  M.  H.  CHOI,  FRMI  *) 

<*  *) 

(*  END  XINCLUDE  NVDLTM  ************************************************) 
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(*  BEGIN  %INCLUDE  NVnQAN  **********************************************) 


(* 

PROCEDURE  NVDQAN( CONST 
CONST 
CONST 
VAR 
VAR 

SUBPROGRAM; 


') 


<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 


ENTITY_KEY 
NAME_STRING 
DIMEN_VALUE 
ATTRIBUTE_VALUE 
NVI  RETURN  CODE 


ENTKEY ; 

T_ATTRIBUTE_NAME; 
T_D IMEN_VALUE ; 
T_ATTR I BUTE_VALUE ; 
EXT_RET_CODE ) ; 


^FUNCTION: 

RETRIEVE 


THE  VALUE  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 


^DESCRIPTION  OF  ARGUMENTS: 


NAME 

ATTRIBUTE_VALUE 
DIMEN_VALUE 
ENTITY_KEY 
NAME  STRING 


NVI  RETURN  CODE 


I/O  DESCRIPTION 


0 

I 

I 

I 


VALUE  OF  THE  ATTRIBUTE 
VALUE  OF  ARRAY  SUBSCRIPT 
POINTER  TO  THE  ENTITY  INSTANCE 
SCHEMA  NAME  FOR  THE  ATTRIBUTE  (OR 
CONCATENATED  SCHEMA  NAME  FOR  THE 
ATTRIBUTE  OF  A  CONSTITUENT)  WHICH  IS 
TERMINATED  BY  A  NULL  (HEX '00’) 
EXTERNAL  RETURN  CODE 
=  0  SUCCESS 
>  0  CRITICAL  ERROR: 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

2  ATTRIBUTE  NOT  IN  ENTITY 


^COMMONS : 

^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

^PROCESSING  DESCRIPTION: 

REQUEST  ATTRIBUTE  LOCATION 
IF  ATTRIBUTE  LOCATION  OBTAINED  THEN 
COPY  ATTRIBUTE  VALUE 
RETURN  SUCCESS 
ELSE 

RETURN  FAILURE 
ENDIF 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 
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(*  $C0MMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED:  26  FEBRUARY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  HANDLE  ARRAY  ATTRIBUTES  *) 
(*  REVISED:  16  MAY  1986,  GEORGE  A.  WHITE,  FRMI ,  REORGANIZED  *) 
(*  GLOBAL  DECLARATIONS  INTO  'NVITYP'.  *) 
(*  REVISED:  21  MARCH  1986,  G.  A.  WHITE,  FRMI,  *) 
(*  DETECT  NIL  ENTITY  KEY  AS  ERROR  *) 
(*  ORIGINATED:  15  OCTOBER  1985,  G.  A.  WHITE,  FRMI  *) 
<*  *) 


(*  end  %INCLUDE  NVDQAN  ************************************************) 
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(*  BEGIN  %INCLUDE  NVDQARLO  ********************************************) 
(*  *) 


FUNCTION  NVDQARLO  (  CONST  ENTITY_INSTANCE 

CONST  INDEX 
CONST  SCHEMA 
CONST  DIMEN_VALUE 
CONST  NO_OF_DIMENSION 
VAR  ARRAY_SIZE 
VAR  ATTRI BUTE_VALUE 
VAR  ARRAY_TYPE 
VAR  DIMEN_COUNT 
VAR  NVI_RETURN_CODE 
:  T_VAR I ANT_PO INTER; 

EXTERNAL; 

(* 

(*  $ FUNCTION : 

(*  DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE 

(*  OF  ARRAY  TYPE. 

(* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O 

(*  NVDQARLO  0 

(*  ARRAY_SIZE  0 

(*  DIMEN_VALUE  I 

(*  ENTITY.INSTANCE  I 

(*  INDEX  I 

(*  NO_OF_DIMENSION  I 

(*  SCHEMA  I 

(* 

(*  $ COMMONS: 

(* 

(*  ^ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

<* 

(*  ^EXECUTION  PROCEDURE: 

(*  NAME/VALUE  INTERFACE 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  REQUEST  POINTER  TO  SELECTOR  IN  ADB  OF  ENTITY  INSTANCE 

(*  POINT  TO  ARRAY  INDEX  TABLE  IN  RUN-TIME  SUBSCHEMA 

(*  POINT  TO  ARRAY  LIST  TABLE  IN  RUN-TIME  SUBSCHEMA 

(*  POINT  TO  ATTRIBUTE  LOCATION 

<* 


DESCRIPTION 

POINTER  TO  ATTRIBUTE  VALUE 
SIZE  OF  THE  ATTRIBUTE  VALUE 
VALUE  OF  ARRAY  SUBSCRIPT 
POINTER  TO  ADB  OF  ENTITY  INSTANCE 
INDEX  OF  THE  CURRENT  SEGMENT 
NUMBER  OF  ARRAY  DIMENSIONS 
RUN-TIME  SUBSCHEMA  ENTITY 


T_INT_ITEM; 

INTEGER; 

T_SCHEMA_POINTER; 
T_DIMEN_VALUE ; 
INTEGER; 

INTEGER; 

T_ATTRI BUTE_VALUE ; 
INTEGER; 

INTEGER; 
EXT_RET_CODE  ) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*> 

*) 

*) 
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(*  ^COMMENTS:  *) 
(*  *) 
(*  ^CHANGE  CONTROL:  *) 
(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 
(*  ORIGINATED:  02  JANUARY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 


(*  END  %INCLUDE  NVDQARLO  **********************************************) 
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( *  BEGIN  %INCLUDE  NVDQARPT  ********************************************) 
PROCEDURE  NVDQARPT  (  CONST  ENTITY  :  ENTKEY ; 

VAR  VALUE_INDEX  :  INTEGER; 

VAR  ATTRIBUTE_VALUE  :  T_ATTRI BUTE_VALUE  ); 


EXTERNAL; 

(* 

*) 

(* 

$ FUNCTION: 

*) 

(* 

DETERMINE  THE  LOCATION  OF  THE  ARRAY  OF  POINTER. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(* 

(* 

NAME  I/O 

DESCRIPTION 

*) 

*) 

*) 

CNST_LIST  0 

ENTITIES  IN  THE  CONSTITUENT  LIST 

<* 

ENTITY  I 

POINTER  TO  ADB  OF  ENTITY  INSTANCE 

*) 

(* 

NO_OF_CL  0 

NUMBER  OF  INSTANCES  IN  THE 

*) 

(* 

CONSTITUENT  LIST 

*) 

<* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

<* 

^ENVIRONMENT : 

*> 

(* 

LANGUAGE:  IBM  PASCAL 

(SEGMENT  SUBPROGRAM) 

*) 

(* 

HARDWARE  SYSTEM:  IBM 

360/370/4341/4381 

*) 

(* 

*> 

(* 

$ EXECUTION  PROCEDURE: 

*) 

(* 

NAME/VALUE  INTERFACE 

*) 

(* 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

*) 

(* 

*> 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

LOOP  THROUGH  NUMBER  OF  INSTANCES  IN  THE  CONSTITUENT  LIST 

*) 

(* 

WHILE  CONSTITUENT 

KIND  <>  1100  THEN 

*) 

<* 

POINT  TO  CONSTITUENT  KEY 

*) 

(* 

END  LOOP 

*) 

(* 

*) 

(* 

$ COMMENTS : 

*) 

<* 

*) 

<* 

i CHANGE  CONTROL: 

*) 

(* 

REVISED:  (DATE,  NAME, 

GROUP,  REASON/DESCRIPTION) 

*> 

(* 

ORIGINATED:  18  FEBRUARY  1987,  M.  H.  CHOI,  DBMA 

*) 

(* 

*) 

<* 

END  XINCLUDE  NVDQARPT  **********************************************) 
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• 

(* 

BEGIN  %INCLUDE  NVDQGTAV  ********************************************) 

<* 

*) 

PROCEDURE  NVDQGTAV  (  CONST  ENTITY_INSTANCE  :  T_INT_ITEM; 

CONST  NAME_STRING  :  T_ATTRI BUTE_NAME ; 

CONST  DIMEN_VALUE  :  T_DIMEN_VALUE ; 

VAR  POSITION  :  INTEGER; 

VAR  POINTER  :  T_VARIANT_POINTER ; 

VAR  ATTRIBUTE_SIZE  :  INTEGER; 

VAR  ATTRI BUTE_VALUE  :  T_ATTR I BUTE_VALUE ; 

VAR  DIMEN_COUNT  :  INTEGER; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE) ; 

EXTERNAL ; 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

/  * 

NAME  I/O  DESCRIPTION 

*) 

(* 

ATTRI BUTE_S I ZE  0  SIZE  OF  THE  ATTRIBUTE  (BYTES) 

*) 

*) 

(* 

DIMEN_VALUE  I  VALUE  OF  ARRAY  SUBSCRIPT 

*) 

(* 

ENTITY_INSTANCE  I  ENTITY  INSTANCE  NODE 

*) 

(* 

NAME_STRIHG  I  SCHEMA  NAME  FOR  THE  ATTRIBUTE  (OR 

*) 

(* 

CONCATENATED  SCHEMA  NAME  FOR  THE 

*) 

w 

(* 

ATTRIBUTE  OF  A  CONSTITUENT)  WHICH  IS 

*) 

(* 

TERMINATED  BY  A  NULL  (HEX ’00') 

*) 

(* 

NVI_RETURN_CODE  0  EXTERNAL  RETURN  CODE 

*) 

(* 

=  0  SUCCESS 

*) 

(* 

>  0  CRITICAL  ERROR: 

*) 

(* 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

*) 

(* 

2  ATTRIBUTE  NOT  IN  ENTITY 

*) 

(* 

POINTER  0  POINTER  TO  ATTRIBUTE  VALUE 

*) 

<* 

POSITION  I/O  LOCATION  OF  ATTRIBUTE  NAME  IN  NAME 

*) 

(* 

STRING  (FOR  REFERRING  TO  ATTRIBUTE 

*) 

<* 

NAME  OF  A  CONSTITUENT  ENTITY) 

*) 

<* 

*) 

(* 

^COMMONS: 

*) 

(* 

*) 

(* 

^ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL  (SEGMENT  EXTERNAL) 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

HAME/VALUE  INTERFACE 

*) 

(* 

CALLED  FROM  SUBPROGRAM  NVDQAN  ORIGINALLY,  WILL  CALL  ITSELF 

*) 

(* 

RECURSIVELY  FOR  POINTER  ATTRIBUTES 

*) 

<* 

*) 
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(*  ^PROCESSING  DESCRIPTION:  *) 
(*  REQUEST  RUN-TIME  SUBSCHEMA  DEFINITION  OF  ENTITY  *) 
(*  IF  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION  OBTAINED  THEN  *) 
(*  OBTAIN  ATTRIBUTE  NAME  FROM  ATTRIBUTE  NAME  STRING  *) 
(*  IF  ATTRIBUTE  NAME  OBTAINED  THEN  *) 
(*  SEARCH  SCHEMA  ENTITY  DEFINITION  FOR  ATTRIBUTE  NAME  *) 
(*  IF  ATTRIBUTE  NAME  FOUND  THEN  *) 
(*  POINT  TO  ATTRIBUTE  LOCATION  *) 
(*  OBTAIN  ATTRIBUTE  SIZE  *) 
(*  RETURN  SUCCESS  *) 
(*  ELSE  *) 
(*  RETURN  FAILURE  *) 
(*  END IF  *) 
(*  ELSE  *) 
(*  POINT  TO  APPLICATION  DATA  BLOCK  *) 
<*  OBTAIN  APPLICATION  DATA  BLOCK  SIZE  *) 
(*  RETURN  SUCCESS  *) 
(*  ENDIF  *) 
(*  ELSE  *) 
(*  RETURN  FAILURE  *) 
(*  ENDIF  *) 
(*  *) 
(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED:  26  FEBRUARY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  HANDLE  ARRAY  ATTRIBUTES  *) 
(*  REVISED:  16  MAY  1986,  GEORGE  A.  WHITE,  FRMI ,  REORGANIZED  *) 
(*  GLOBAL  DECLARATIONS  INTO  'NVITYP* .  *) 
(*  ORIGINATED:  OCTOBER  1985,  G.  A.  WHITE,  FRMI  *) 
(*  *) 
(*  END  %INCLUDE  NVDQGTAV  **********************************************) 
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(*  BEGIN  XINCLUDE  NVDSARLO 
(* 

FUNCTION  NVDSARLO  (  CONST 

CONST 

CONST 

CONST 

CONST 

VAR 

VAR 

VAR 

VAR 

VAR 


(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

f* 

V 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 


********************************************) 

*) 

T_INT_ITEM; 

INTEGER; 

T_SCHEMA_PO INTER; 
T_DIMEN_VALUE ; 

INTEGER; 

INTEGER; 

T_ATT  R I BUTE_VALUE ; 

INTEGER; 

INTEGER; 

EXT_RET_CODE  ) 


ENTITY_INSTANCE 

INDEX 

SCHEMA 

DIMEN_VALUE 

NO_OF_DIMENSION 

ARRAY_SIZE 

ATTRIBUTE_VALUE 

ARRAY_TYPE 

DIMEN_COUNT 

NVI  RETURN  CODE 


:  T_VARIANT_PO INTER; 

EXTERNAL; 

$ FUNCTION: 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE 
OF  ARRAY  TYPE. 

^DESCRIPTION  OF  ARGUMENTS: 


NAME 

NVDSARLO 

AP.RAY_SIZE 

DIMEN_VALUE 

ENTITY_INSTANCE 

INDEX 

NO_OF_DIMENSION 

SCHEMA 


I/O  DESCRIPTION 


0 

0 

I 

I 

I 

I 

I 


POINTER  TO  ATTRIBUTE  VALUE 
SIZE  OF  THE  ATTRIBUTE  VALUE 
VALUE  OF  ARRAY  SUBSCRIPT 
POINTER  TO  ADB  OF  ENTITY  INSTANCE 
INDEX  OF  THE  CURRENT  SEGMENT 
NUMBER  OF  ARRAY  DIMENSIONS 
RUN-TIME  SUBSCHEMA  ENTITY 


$ COMMONS : 


^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 
^PROCESSING  DESCRIPTION: 

REQUEST  POINTER  TO  SELECTOR  IN  ADB  OF  ENTITY  INSTANCE 
POINT  TO  ARRAY  INDEX  TABLE  IN  RUN-TIME  SUBSCHEMA 
POINT  TO  ARRAY  LIST  TABLE  IN  RUN-TIME  SUBSCHEMA 
POINT  TO  ATTRIBUTE  LOCATION 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 
(*  ORIGINATED:  14  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 


(*  end  %INCLUDE  NVDSARLO  **********************************************) 
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(*  BEGIN  %INCLUDE  NVDSARPT  ********************************************) 


PROCEDURE  NVDSARPT  (  CONST  ENTITY  :  ENTKEY; 

VAR  VALUE_INDEX  :  INTEGER; 

VAR  ATTRIBUTE_VALUE  :  T_ATT R I BUTE_VALUE  ); 

EXTERNAL; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  DETERMINE  THE  LOCATION  OF  THE  ARRAY  OF  POINTER.  *) 

(*  *) 

(*  $DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  CNSTJLIST  0  ENTITIES  IN  THE  CONSTITUENT  LIST  *) 

(*  ENTITY  I  POINTER  TO  ADB  OF  ENTITY  INSTANCE  *) 

(*  NO_OF_CL  0  NUMBER  OF  INSTANCES  IN  THE  *) 

(*  CONSTITUENT  LIST  *) 

(*  *) 

(*  $COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  LOOP  THROUGH  NUMBER  OF  INSTANCES  IN  THE  CONSTITUENT  LIST  *) 

(*  WHILE  CONSTITUENT  KIND  <>  1100  THEN  *) 

(*  POINT  TO  CONSTITUENT  KEY  *) 

(*  END  LOOP  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  14  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  NVDSARPT  **********************************************) 
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(*  BEGIN  %INCLUDE  NVDSAV 

(* 

PROCEDURE  NVDSAV( CONST  ENTITY_KEY 
CONST  NAME_STRING 
CONST  DIMEN  VALUE 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 


VAR 

VAR 

SUBPROGRAM; 

^FUNCTION: 

REPLACE  THE 


**********************************************) 

*) 

ENTKEY; 

T_ATTRIBUTE_NAME ; 

T_D I MEN_VALUE ; 

T_ATTR I BUTE_VALUE ; 

EXT_RET_CODE) ; 


ATT  R I BUTE_VALUE 
NVI  RETURN  CODE 


VALUE  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 


^DESCRIPTION  OF  ARGUMENTS: 


NAME 

ATTR I BUTE_VALUE 
DIMEN_VALUE 
ENTITY_KEY 
NAME  STRING 


NVI  RETURN  CODE 


I/O  DESCRIPTION 


VALUE  OF  THE  ATTRIBUTE 
VALUE  OF  ARRAY  SUBSCRIPT 
POINTER  TO  THE  ENTITY  INSTANCE 
SCHEMA  NAME  FOR  THE  ATTRIBUTE  (OR 
CONCATENATED  SCHEMA  NAME  FOR  THE 
ATTRIBUTE  OF  A  CONSTITUENT)  WHICH  IS 
TERMINATED  BY  A  NULL  (HEX '00') 
EXTERNAL  RETURN  CODE 
=  0  SUCCESS 
>  0  CRITICAL  ERROR: 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

2  ATTRIBUTE  NOT  IN  ENTITY 

3  NIL  ENTITY  KEY 


$ COMMONS : 

SENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


$ EXE CUT I ON  PROCEDURE: 

NAME /VALUE  INTERFACE 
CALLED  FROM  EITHER  PASCAL 


OR  FORTRAN  APPLICATION  PROGRAM 


^PROCESSING  DESCRIPTION: 

REQUEST  ATTRIBUTE  LOCATION 
IF  ATTRIBUTE  LOCATION  OBTAINED  THEN 
REPLACE  ATTRIBUTE  VALUE 
RETURN  SUCCESS 
ELSE 

RETURN  FAILURE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ENDIF  *) 
(*  *) 
(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED  :  26  FEBRUARY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  HANDLE  ARRAY  ATTRIBUTES  *) 
(*  ORIGINATED:  09  SEPTEMBER  1986,  M.  H.  CHOI,  DBMA  *) 
(*  *) 


(*  END  %INCLUDE  NVDSAV  ************************************************) 
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(* 

(* 


BEGIN  %INCLUDE  NVDSENLO 


FUNCTION  NVDSENLO  (  CONST  ENTITY_POINTER 

CONST  INDEX 
CONST  SCHEMA 
CONST  VALUE_NAME 
VAR  SCALAR 
VAR  RETURN_CODE 
:  T_VARIANT_POINTER ; 

EXTERNAL; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

C* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 


********************************************) 

*) 

ENTPNTR; 

INTEGER; 

T_SCHEMA_PO INTER ; 
T_SCHEMA_NAME ; 

T_HEX_BYTE ; 

EXT  RET  CODE 


) 


$FUNCTION: 

DETERMINE  THE  LOCATION  OF  THE  ENUMERATION  TYPE. 
^DESCRIPTION  OF  ARGUMENTS: 


NAME 

ENTITY.PO INTER 
NVDSENLO 
INDEX 
SCHEMA 


I/O  DESCRIPTION 


I 

0 

I 

I 


POINTER  TO  ADB  OF  ENTITY  INSTANCE 
POINTER  TO  ATTRIBUTE  VALUE 
INDEX  OF  THE  CURRENT  SEGMENT 
RUN-TIME  SUBSCHEMA  ENTITY 


^COMMONS: 


^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*> 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 

END  /{INCLUDE  NVDSENLO  **********************************************) 


^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 
^PROCESSING  DESCRIPTION: 

REQUEST  POINTER  TO  SELECTOR  IN  ADB  OF  ENTITY  INSTANCE 
POINT  TO  ENUMERATION  INDEX  TABLE  IN  RUN-TIME  SUBSCHEMA 
POINT  TO  ENUMERATION  VALUES  TABLE  IN  RUN-TIME  SUBSCHEMA 
POINT  TO  ATTRIBUTE  VALUE 

^COMMENTS : 

$ CHANGE  CONTROL: 

REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION) 
ORIGINATED:  12  DECEMBER  1987,  M.  H.  CHOI,  DBMA 
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(*  BEGIN  %INCLUDE  NVDSGTAV 


(* 

PROCEDURE  NVDSGTAV  (  CONST 

CONST 

CONST 

VAR 

VAR 

VAR 

VAR 

VAR 

VAR 


********************************************) 

*) 


ENTITY_INSTANCE 

NAME_STRING 

DIMEN_VALUE 

POSITION 

POINTER 

ATTRIBUTE_VALUE 
ATTRIBUTE_SIZE 
DIMEN_COUNT 
NVI  RETURN  CODE 


T_INT_ITEM; 

T_ATTRI BUTE_NAME ; 
T_DIMEN_VALUE ; 
INTEGER; 

T_VARIANT_POINTER ; 
T_ATTRI BUTE_VALUE ; 
INTEGER; 

INTEGER; 
EXT_RET_CODE ) ; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

<* 

(* 


EXTERNAL; 

^FUNCTION: 

DETERMINE  THE  LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME 

I/O 

DESCRIPTION 

ATTR I BUTE_S I ZE 

0 

SIZE  OF  THE  ATTRIBUTE  (BYTES) 

DIMEN_VALUE 

I 

VALUE  OF  ARRAY  SUBSCRIPT 

ENTITY_INSTANCE 

I 

ENTITY  INSTANCE  NODE 

NAME_STRING 

I 

SCHEMA  NAME  FOR  THE  ATTRIBUTE  (OR 
CONCATENATED  SCHEMA  NAME  FOR  THE 
ATTRIBUTE  OF  A  CONSTITUENT)  WHICH  IS 
TERMINATED  BY  A  NULL  (HEX’ 00’) 

NVI _RETURN_CODE 

0 

EXTERNAL  RETURN  CODE 
=  0  SUCCESS 
>  0  CRITICAL  ERROR: 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

2  ATTRIBUTE  NOT  IN  ENTITY 

POINTER 

0 

POINTER  TO  ATTRIBUTE  VALUE 

POSITION 

I/O 

LOCATION  OF  ATTRIBUTE  NAME  IN  NAME 
STRING  (FOR  REFERRING  TO  ATTRIBUTE 
NAME  OF  A  CONSTITUENT  ENTITY) 

$ COMMONS : 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  EXTERNAL) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  SUBPROGRAM  NVDQAN  ORIGINALLY,  WILL  CALL  ITSELF 
RECURSIVELY  FOR  POINTER  ATTRIBUTES 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^PROCESSING  DESCRIPTION:  *) 
(*  REQUEST  RUN-TIME  SUBSCHEMA  DEFINITION  OF  ENTITY  *) 
(*  IF  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION  OBTAINED  THEN  *) 
(*  OBTAIN  ATTRIBUTE  NAME  FROM  ATTRIBUTE  NAME  STRING  *) 
(*  IF  ATTRIBUTE  NAME  OBTAINED  THEN  *) 
(*  SEARCH  SCHEMA  ENTITY  DEFINITION  FOR  ATTRIBUTE  NAME  *) 
(*  IF  ATTRIBUTE  NAME  FOUND  THEN  *) 
(*  POINT  TO  ATTRIBUTE  LOCATION  *) 
(*  OBTAIN  ATTRIBUTE  SIZE  *) 
(*  RETURN  SUCCESS  *) 
(*  ELSE  *) 
(*  RETURN  FAILURE  *) 
(*  END IF  *) 
(*  ELSE  *) 
(*  POINT  TO  APPLICATION  DATA  BLOCK  *) 
(*  OBTAIN  APPLICATION  DATA  BLOCK  SIZE  *) 
(*  RETURN  SUCCESS  *) 
(*  ENDIF  *) 
(*  ELSE  *) 
(*  RETURN  FAILURE  *) 
(*  ENDIF  *) 
(*  *) 
(*  ^COMMENTS:  *) 
(*  *) 
(*  $  CHANGE  CONTROL:  *) 
(*  ORIGINATED:  12  DECEMBER  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 


(*  END  XINCLUDE  NVDSGTAV  **********************************************) 
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(*  BEGIN  %INCLUDE  NVEQAV  **********************************************) 
(*  *) 


PROCEDURE  NVEQAV  (  CONST  SELECTED_ENTITY  :  ENTKEY ; 

CONST  ATTRIBUTE_DATA_BLOCK  :  ENTBLOCK; 

VAR  DATAREC  :  T_DATAREC; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 

(* 

(*  $ FUNCTION: 

(*  IF  ATTRIBUTE  VALUE  FOR  ENTITY  INSTANCE  OR  CONSTITUENT 

(*  EQUAL  SPECIFIED  VALUE  THEN  ADD  ENTITY  TO  LIST. 

<* 

(*  ^DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O 

(*  SELECTED_ENTITY  I 

(* 

(*  ATTRIBUTE_DATA_BLOCK  I 

(* 

(*  DATAREC  I/O 

(* 

(* 

(* 

(* 

(* 

(*  NVI_RETURN_CODE  0 

(* 

(*  ^COMMONS: 

(* 

(*  ^ENVIRONMENT: 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

(* 

(*  $ EXECUTION  PROCEDURE: 

(*  NAME/VALUE  INTERFACE 

(*  CALLED  VIA  MAEXEQ  FROM  NVPQAV  FOR  EACH  INSTANCE. 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  IF  ATTRIBUTE  VALUE  FOUND  THEN 

(*  IF  ATTRIBUTE  VALUE  EQUAL  SPECIFIED  VALUE  THEN 

(*  ADD  SELECTED  ENTITY  TO  LIST 

(*  ENDIF 

(*  ENDIF 

(* 

(*  ^COMMENTS: 

(* 


DESCRIPTION 

ENTITY  INSTANCE  KEY 

SUPPLIED  BY  MAKXEQ  BUT  NOT  USED 

A  RECORD  STRUCTURE  PASSED  THROUGH 
MAEXEQ  WHICH  CONTAINS  THE  PARAMETERS 
FROM  NVPQAV  :  NAME_ROOT 
LISTJROOT 
ATTRIBUTE_VALUE 

EXTERNAL  RETURN  CODE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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$ CHANGE  CONTROL:  *) 

ORIGINATED:  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 

*) 

END  /^INCLUDE  NVEQAV  ************************************************) 
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(*  BEGIN  %INCLUDE  NVGEAV  **********************************************) 
(*  *) 


PROCEDURE  NVGEAV  (  CONST  SELECTED_ENTITY  :  ENTKEY ; 

CONST  ATTRIBUTE_DATA_BLOCK  :  ENTBLOCK; 

VAR  DATAREC  :  T_DATAREC ; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 

(* 

(*  $ FUNCTION: 

(*  IF  ATTRIBUTE  VALUE  FOR  ENTITY  INSTANCE  OR  CONSTITUENT  IS 

(*  GREATER  THAN  OR  EQUAL  TO  SPECIFIED  VALUE  THEN  ADD  ENTITY 

(*  TO  LIST. 


*) 

*) 

*) 

*) 

*) 


(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  SELECTED_ENTITY  I  ENTITY  INSTANCE  KEY  *) 

(*  *) 

(*  ATT R I BUTE_DATA_BLO C K  I  SUPPLIED  BY  MAEXEQ  BUT  NOT  USED  *) 

(*  *) 

(*  DATAREC  I/O  A  RECORD  STRUCTURE  PASSED  THROUGH  *) 

(*  MAEXEQ  WHICH  CONTAINS  THE  PARAMETERS  *) 

(*  FROM  NVPQAV  :  NAME_ROOT  *) 

(*  LIST_ROOT  *) 

(*  ATTRIBUTE_VALUE  *) 

(*  *) 

(*  NVI_RETURN_CODE  0  EXTERNAL  RETURN  CODE  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  NAME/VALUE  INTERFACE  *) 

(*  CALLED  VIA  MAEXEQ  FROM  NVPQAV  FOR  EACH  INSTANCE.  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  IF  ATTRIBUTE  VALUE  FOUND  THEN  *) 

(*  IF  ATTRIBUTE  VALUE  GREATER  THAN  OR  EQUAL  *) 

(*  SPECIFIED  VALUE  THEN  *) 

(*  ADD  SELECTED  ENTITY  TO  LIST  *) 

(*  ENDIF  *) 

(*  ENDIF  *) 

(*  *) 
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(*  $C0MMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  ORIGINATED:  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 
(*  end  XINCLUDE  NVGEAV  ************************************************) 
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(*  REGIN  %INCLUDE  NVGRAV  **********************************************) 

(*  *) 

PROCEDURE  NVGRAV  (  CONST  SELECTED_ENTITY  :  ENTKEY ; 

CONST  ATTRI BUTE_DATA_BLO  CK  :  ENTBLOCK; 

VAR  DATAREC  :  T_DATAREC ; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  IF  ATTRIBUTE  VALUE  FOR  ENTITY  INSTANCE  OR  CONSTITUENT  IS  *) 

(*  GREATER  THAN  SPECIFIED  VALUE  THEN  ADD  ENTITY  TO  LIST.  *) 


^DESCRIPTION  OF  ARGUMENTS: 
NAME  I/O 

SELECTEDJENTITY  I 

ATTRI BUTE_DATA_BLO  CK  I 

DATAREC  I/O 


DESCRIPTION 


ENTITY  INSTANCE  KEY 


SUPPLIED  BY  MAKXEQ  BUT  NOT  USED 


A  RECORD  STRUCTURE  PASSED  THROUGH  *) 
MAEXEQ  WHICH  CONTAINS  THE  PARAMETERS  *) 


FROM  NVPQAV 


NAME_ROOT 
LIST_ROOT 
ATTRIBUTE  VALUE 


NVI  RETURN  CODE 


EXTERNAL  RETURN  CODE 


iCOMMONS: 


$ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  VIA  MAEXEQ  FROM  NVPQAV  FOR  EACH  INSTANCE. 

^PROCESSING  DESCRIPTION: 

IF  ATTRIBUTE  VALUE  FOUND  THEN 

IF  ATTRIBUTE  VALUE  GREATER  THAN  SPECIFIED  VALUE  THEN 
ADD  SELECTED  ENTITY  TO  LIST 
ENDIF 
ENDIF 

^COMMENTS : 
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(*  $CHANGE  CONTROL:  *) 

(*  ORIGINATED:  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 
END  %INCLUDE  NVGRAV  ************************************************) 
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(*  BEGIN  %INCLUDE  NVGTAN  **********************************************) 
(*  *) 
PROCEDURE  NVGTAN (CONST  NAME_STRING  :  T_ATTRIBUTE_NAME; 

VAR  N0_0F_DIMENSI0N  :  INTEGER; 


VAR 

VAR 

EXTERNAL; 


POSITION 

NAME 


INTEGER; 
T_SCHEMA_NAME) ; 


$ FUNCTION: 

EXTRACT  ATTRIBUTE  NAME  FROM  ATTRIBUTE  NAME  STRING,  STARTING 
AT  STRING  POSITION. 


^DESCRIPTION  OF  ARGUMENTS: 

NAME  I/O 


DESCRIPTION 


NAME 

NAME_STRING 

NO_OF_DIMENSION 

POSITION 


CURRENT  SEGMENT  OF  ATTRIBUTE  NAME 
FULLY  QUALIFIED  ATTRIBUTE  NAME 
NUMBER  OF  ARRAY  DIMENSIONS 
POSITION  OF  THE  CURRENT  SEGMENT 


$ COMMONS: 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  EXTERNAL) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

$ EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

^PROCESSING  DESCRIPTION: 

COPY  ATTRIBUTE  NAME  FROM  ATTRIBUTE  NAME  STRING 
UPDATE  POSITION  IN  STRING 


(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  31  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 

(*  ADDED  A  NO_OF_DIMENSION  PARAMETER  TO  HANDLE  ARRAY  *) 

(*  REVISED:  16  MAY  1986,  GEORGE  A.  WHITE,  FRMI ,  REORGANIZED  *) 

(*  GLOBAL  DECLARATIONS  INTO  'NVITYP'.  *) 

(*  ORIGINATED:  4  NOVEMBER  1985,  G.  A.  WHITE,  FRMI  *) 

(*  *) 

(*  END  ^INCLUDE  NVGTAN  ************************************************) 
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(*  BEGIN  %INCLUDE  NVGTAT 

(* 


PROCEDURE  NVGTAT  (  CONST 

CONST 

VAR 

VAR 

VAR 


a*********************************************) 


KIND 

ATTRIBUTE_NAME 

DATA_TYPE 

SIZE 

RETURN  CODE 


INTEGER; 

T_ATT  R I BUTE_NAME 
T_DATA_TYPE ; 
INTEGER; 

INTEGER  ); 


*) 


EXTERNAL; 

(* 

(*  $ FUNCTION: 

(*  OBTAIN  THE  DATA  TYPE  AND  THE  ATTRIBUTE  SIZE  FOR  THE 

(*  REQUESTED  ENTITY  ATTRIBUTE. 

(* 

(*  $DESCRIPTION  OF  ARGUMENTS: 

(*  NAME  I/O  DESCRIPTION 


*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


KIND 

ATTRI BUTE_NAME 


DATA_TYPE 

SIZE 

RETURN  CODE 


I  KIND  NUMBER 

I  SCHEMA  NAME  FOR  THE  ATTRIBUTE  (OR 

CONCATENATED  SCHEMA  NAME  FOR  THE 
ATTRIBUTE  OF  A  CONSTITUENT)  WHICH  IS 
TERMINATED  BY  A  NULL  (HEX’ 00') 

0  ENTITY  ATTRIBUTE  DATA  TYPE 

0  SIZE  OF  ENTITY  ATTRIBUTE 

0  EXTERNAL  RETURN  CODE 

=  0  SUCCESS 
>  0  CRITICAL  ERROR: 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

2  ATTRIBUTE  NOT  IN  ENTITY 


$ COMMONS : 

^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  EXTERNAL) 
HARDWARE  SYSTEM:  IBM  360/370/4341/4381 


^EXECUTION  PROCEDURE: 

NAME /VALUE  INTERFACE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  REQUEST  RUN-TIME  SUBSCHEMA  DEFINITION  OF  ENTITY 

(*  IF  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION  OBTAINED  THEN 

(*  OBTAIN  ATTRIBUTE  NAME  FROM  ATTRIBUTE  NAME  STRING 

(*  IF  ATTRIBUTE  NAME  OBTAINED  THEN 

(*  SEARCH  SCHEMA  ENTITY  DEFINITION  FOR  ATTRIBUTE  NAME 

(*  IF  ATTRIBUTE  NAME  FOUND  THEN 

(*  OBTAIN  DATA  TYPE 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  OBTAIN  ATTRIBUTE  SIZE  *) 

(*  END  IF  *) 

(*  END  IF  *) 

(*  END  IF  *) 

(*  *> 

(*  $COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  ORIGINATED:  13  NOVEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  NVGTAT  ******************************************★*****) 
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(*  BEGIN  %INCLUDE  NVGTDD  **********************************************) 
(*  *) 
PROCEDURE  NVGTDD  (  CONST  KIND_OF_ENTITY  :  ORD_KIND; 


VAR  SCHEMA_POINTER  :  T_SCHEMA_PO INTER; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 


(* 

*) 

(* 

$ FUNCTION: 

*) 

(* 

GET  DATA  DICTIONARY  ENTITY  DEFINITION 

*) 

(* 

*) 

c* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

NAME  I/O  DESCRIPTION 

*) 

(* 

ii 

ii 

n 

n 

n 

ii 

n 

n 

n 

ii 

ii 

ii 

it 

ii 

n 

ii 

ii 

ii 

*) 

(* 

KIND_OF_ENTITY  I  KIND  VALUE  OF  THE  ENTITY  FOR  WHICH  THE 

*) 

(* 

RUN-TIME  SUBSCHEMA  IS  TO  BE  OBTAINED 

*) 

(* 

NVI_RETURN_CODE  0  RETURN  CODE 

*) 

(* 

=  0  SUCCESS 

*) 

(* 

>  0  CRITICAL  ERROR: 

*) 

(* 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

*) 

(* 

SCHEMAJPOINTER  0  POINTER  TO  THE  RUN-TIME  SUBSCHEMA  ENTITY*) 

(* 

DEFINITION  AFTER  IT  IS  STORED  INTO  THE 

*) 

(* 

WORKING  FORM. 

*) 

(* 

*) 

(* 

^COMMONS : 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

*) 

<* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

<* 

*) 

(* 

$ EXECUTION  PROCEDURE: 

*) 

(* 

RUN-TIME  SUBSCHEMA 

*) 

(* 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

REQUEST  POINTER  TO  RUN_TIME  SUBSCHEMA 

*) 

(* 

IF  RUN-TIME  SUBSCHEMA  NOT  IN  WORKING  FORM  THEN 

*) 

(* 

REQUEST  DATA  DICTIONARY  FROM  SCHEMA  MODEL 

*) 

(* 

IF  DATA  DICTIONARY  OBTAINED  THEN 

*) 

(* 

STORE  DATA  DICTIONARY  IN  WORKING  FORM 

*) 

<* 

REQUEST  POINTER  TO  RUN_TIME  SUBSCHEMA 

*) 

(* 

ELSE 

*) 

(* 

RETURN  FAILURE 

*) 

(* 

ENDIF 

*) 

(* 

ENDIF 

*) 

(* 

*) 
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(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  ORIGINATED  29  APRIL  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 


(*  END  %INCLUDE  NVGTDD  ************************************************) 
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(*  BEGIN  %INCLUDE  NVGTED  **********************************************) 


CONST 

ENTITY_NAME 

:  T_ATT R I BUTE_NAME 

VAR 

ENTITY_KIND 

:  ORD_KIND; 

VAR 

ADB_SIZE 

:  INTEGER; 

VAR 

CL_LENGTH 

:  INTEGER; 

VAR 

RETURN_CODE 

:  EXT_RET_CODE  ); 

SUBPROGRAM; 

*) 

$ FUNCTION:  *) 

OBTAIN  THE  ENTITY  KIND,  ADB  SIZE  AND  NUMBER  OF  CONSTITUENTS  *) 
FOR  THE  REQUESTED  ENTITY  NAME.  *) 


^DESCRIPTION  OF  ARGUMENTS: 


DESCRIPTION 


ENTITY_NAME 
ENTITYJCIND 
ADB_SIZE 
CL_LENGTH 
RETURN  CODE 


AN  ENTITY  NAME 

KIND  NUMBER 

TOTAL  SIZE  OF  THE  ADB 

NUMBER  OF  CONSTITUENTS 

EXTERNAL  RETURN  CODE 

»  0  SUCCESS 

>  0  CRITICAL  ERROR: 


$ COMMONS: 


^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  EXTERNAL) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

^PROCESSING  DESCRIPTION: 

OBTAIN  ENTITY  NAME  FROM  ENTITY  NAME  STRING 
REQUEST  DATA  DICTIONARY  GIVEN  ENTITY  NAME 
IF  DATA  DICTIONARY  ENTITY  DEFINITION  OBTAINED  THEN 
OBTAIN  ENTITY  KIND 
LOOP  THROUGH  THE  ENTITY  DEFINITION 
IF  ATTRIBUTE  IN  ADB  THEN 

OBTAIN  THE  LARGEST  PHYSICAL  SCHEMA  ORDER 
ELSE 

OBTAIN  THE  LARGEST  CONSTITUENT  LIST  POSITION 
END  IF 
END  LOOP 

CALCULATE  THE  TOTAL  ADB  SIZE 
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(*  END  IF  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  ORIGINATED:  25  NOVEMBER  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  END  %INCLUDE  NVGTED  ************************************************) 
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(*  BEGIN  %INCLUDE  NVGTRS  **********************************************) 


(*  *) 

PROCEDURE  NVGTRS  (  CONST  KIND_OF_ENTITY  :  0RD_KIND; 

VAR  SCHEMA_P0 INTER  :  T_SCHEMA_POINTER ; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 

C*  *) 

(*  $ FUNCTION:  *) 

(*  GET  RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  KIND_OF_ENTITY  I  KIND  VALUE  OF  THE  ENTITY  FOR  WHICH  THE  *) 

(*  RUN-TIME  SUBSCHEMA  IS  TO  BE  OBTAINED  *) 

(*  NVI_RETURN_CODE  0  RETURN  CODE  *) 

(*  =0  SUCCESS  *) 

(*  >  0  CRITICAL  ERROR:  *) 

(*  1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA  *) 

(*  SCHEMA_POINTER  0  POINTER  TO  THE  RUN-TIME  SUBSCHEMA  ENTITY*) 

(*  DEFINITION  AFTER  IT  IS  STORED  INTO  THE  *) 

(*  WORKING  FORM.  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  $ EXE CUT I ON  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  CALLED  FROM  THE  NAME /VALUE  INTERFACE  *) 

C*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  REQUEST  POINTER  TO  RUN_TIME  SUBSCHEMA  *) 

(*  IF  RUN-TIME  SUBSCHEMA  NOT  IN  WORKING  FORM  THEN  *) 

(*  REQUEST  RUN-TIME  SUBSCHEMA  FROM  SCHEMA  MODEL  *) 

(*  IF  RUN-TIME  SUBSCHEMA  OBTAINED  THEN  *) 

(*  STORE  RUN-TIME  SUBSCHEMA  IN  WORKING  FORM  *) 

(*  REQUEST  POINTER  TO  RUNJTIME  SUBSCHEMA  *) 

(*  ELSE  *) 

(*  RETURN  FAILURE  *) 

(*  ENDIF  *) 

(*  ENDIF  *) 

(*  *) 
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(* 

^COMMENTS: 

*) 

f* 

\ 

*) 

(* 

$ CHANGE  CONTROL: 

*) 

(* 

REVISED:  16 

MAY 

1986,  GEORGE 

A.  WHITE,  FRMI,  REORGANIZED 

*) 

<* 

GLOBAL 

DECLARATIONS 

INTO  ’NVITYP' . 

*) 

(* 

ORIGINATED 

23  JANUARY  1986, 

G.  A.  WHITE,  FRMI 

*) 

(* 

*) 

(*  END 


%INCLUDE  NVGTRS  ************************************************ 


) 
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(*  BEGIN  %INCLUDE  NVLCAV 
(* 

FUNCTION  NVLCAV  (  CONST 

VAR 

VAR 

VAR 

VAR 

VAR 

:  BOOLEAN; 
EXTERNAL; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 


**********************************************) 

*) 

ENTKEY ; 

T_DATAREC ; 

T_VARIANT_POINTER ; 

INTEGER; 

INTEGER; 

EXT_RET_CODE ) . 


SLLLCTLD_ENTiTi 

DATAREC 

POINTER 

ATTRIBUTE_SI2E 

DATA_TYPE 

NVI  RETURN  CODE 


^FUNCTION: 

LOCATE  ATTRIBUTE  VALUE  USING  TRAVERSAL  MAP. 


$DESCRIPTIC 

NAME 


OF  ARGUMENTS: 

I/O 


SELECTED  ENTITY 


NAME  ROOT 


DESCRIPTION 

ENTITY  INSTANCE  KEY 

POINTER  TO  TRAVERSAL  MAP  WHICH 
CONTAINS  ATTRIBUTE  NAMES  AND  THE 
CORRESPONDING  SCHEMA  DEFINITIONS 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


<* 

POINTER 

0 

(* 

<* 

ATTR I BUTE_S I ZE 

0 

(* 

(* 

NVI_RETURN_CODE 

0 

(* 

(* 

^COMMONS : 

<* 

(* 

^ENVIRONMENT: 

(* 

LANGUAGE:  IBM  PASCAL 

<* 

HARDWARE  SYSTEM: 

IBM 

(* 

(* 

^EXECUTION  PROCEDURE: 

(* 

NAME/VALUE  INTERFACE 

POINTER  TO  ATTRIBUTE  VALUE 
SIZE  OF  THE  ATTRIBUTE  (BYTES) 
EXTERNAL  RETURN  CODE 

(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 


(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  START  WITH  SPECIFIED  KIND 

(*  LOOP  THROUGH  ATTRIBUTE  NAMES  IN  TRAVERSAL  MAP 

(*  IF  ATTRIBUTE  DEFINITION  EXISTS  FOR  NAME/KIND  THEN 

(*  CASE  ATTRIBUTE  DATA  TYPE  OF 

(*  IN_CL  :  OBTAIN  CONSTITUENT 

(*  USE  CONSTITUENT  KIND 

(*  OBTAIN  DEFINITION  OF  CONSTITUENT 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ATTRIBUTE  *) 
(*  IN_STRUCT'JRE  :  OBTAIN  DEFINITION  OF  STRUCTURE  ELEMENT  *) 
(*  OTHERWISE  :  TERMINATE  TRAVERSAL  *) 
(*  DETERMINE  LOCATION  OF  ATTRIBUTE  VALUE  *> 
(*  ATTRIBUTE  VALUE  FOUND  *) 
(*  END  CASE  *) 
(*  ELSE  *) 
(*  TERMINATE  TRAVERSAL  *) 
(*  ATTRIBUTE  VALUE  NOT  FOUND  *) 
(*  ENDIF  *) 
(*  ENDLOOP  *) 
(*  *) 
(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED:  31  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 
(*  ADDED  A  DIMENSION  VALUE  PARAMETER  TO  HANDLE  ARRAY  *) 
(*  OF  POINTER.  *) 
(*  ORIGINATED:  12  MAY  1986,  G.  A.  WHITE,  FRMI  *) 
(*  *) 


(*  end  %INCLUDE  NVLCAV  ************************************************) 
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(*  BEGIN  %INCLUDE  NVLEAV  **********************************************) 

(*  *) 

PROCEDURE  NVLEAV  (  CONST  SELECTED_ENTITY  :  ENTKEY ; 

CONST  ATTRIBUTE_DATA_BLOCK  :  ENTBLOCK; 

VAR  DATAREC  :  T_DATAREC ; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 


<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

('• 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 


*) 

$ FUNCTION:  *) 

IF  ATTRIBUTE  VALUE  FOR  ENTITY  INSTANCE  OR  CONSTITUENT  IS  *) 
LESS  THAN  OR  EQUAL  TO  SPECIFIED  VALUE  THEN  ADD  ENTITY  TO  *) 

LIST.  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

SELECTED_ENTITY  I  ENTITY  INSTANCE  KEY  *) 

*) 

ATTRIBUTE_DATA_BLOCK  I  SUPPLIED  BY  MAKXEQ  BUT  NOT  USED  *) 

*) 

DATAREC  I/O  A  RECORD  STRUCTURE  PASSED  THROUGH  *) 

MAEXEQ  WHICH  CONTAINS  THE  PARAMETERS  *) 
FROM  NVPQAV  :  NAME_ROOT  *) 

LIST_ROOT  *) 

ATTRIBUTE_VALUE  *) 

*) 

NVI_RETURN_CODE  0  EXTERNAL  RETURN  CODE  *) 

*) 

^COMMONS:  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

^EXECUTION  PROCEDURE:  *) 

NAME/VALUE  INTERFACE  *) 

CALLED  VIA  MAEXEQ  FROM  NVPQAV  FOR  EACH  INSTANCE.  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

IF  ATTRIBUTE  VALUE  FOUND  THEN  *) 

IF  ATTRIBUTE  VALUE  LESS  THAN  OR  EQUAL  *) 

SPECIFIED  VALUE  THEN  *) 

ADD  SELECTED  ENTITY  TO  LIST  *) 

ENDIF  *) 

ENDIF  *) 


<* 


*) 
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(*  ^COMMENTS:  *) 

(*  *) 

(*  ^CHANGE  CONTROL:  *) 

(*  ORIGINATED:  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 

(*  end  %INCLUDE  NVLEAV  ************************************************) 
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f  *  BEGIN  %INCLUDE  NVLTAV  ********************** ,.*********************** ) 

<*  *) 

PROCEDURE  NVLTAV  (  CONST  SELECTED_ENTITY  :  ENTKEY ; 

CONST  ATTRIBUTE_DATA_BLOCK  :  ENTBLOCK; 

VAR  DATAREC  :  T_DATAREC ; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

<* 

<* 

(* 

(* 

(* 

(* 

(* 


*) 

$ FUNCTION :  *) 

IF  ATTRIBUTE  VALUE  FOR  ENTITY  INSTANCE  OR  CONSTITUENT  IS  *) 
LESS  THAN  SPECIFIED  VALUE  THEN  ADD  ENTITY  TO  LIST.  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

SELECTED_ENTITY  I  ENTITY  INSTANCE  KEY  *) 

*) 

ATTR I BUTE_DATA_BLOCK  I  SUPPLIED  BY  MAKXEQ  BUT  NOT  USED  *) 

*) 

DATAREC  I/O  A  RECORD  STRUCTURE  PASSED  THROUGH  *) 

MAEXEQ  WHICH  CONTAINS  THE  PARAMETERS  *) 
FROM  NVPQAV  :  NAME_ROOT  *) 

LIST_ROOT  *) 

ATTRIBUTE_VALUE  *) 

*) 

NVI_RETURN_CODE  0  EXTERNAL  RETURN  CODE  *) 

*) 

$ COMMONS :  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

$ EXECUTION  PROCEDURE:  *) 

NAME/VALUE  INTERFACE  *) 

CALLED  VIA  MAEXEQ  FROM  NVPQAV  FOR  EACH  INSTANCE.  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

IF  ATTRIBUTE  VALUE  FOUND  THEN  *) 

IF  ATTRIBUTE  VALUE  LESS  THAN  SPECIFIED  VALUE  THEN  *) 

ADD  SELECTED  ENTITY  TO  LIST  *) 

ENDIF  *) 

END IF  *) 


(*  *> 
(*  ^COMMENTS:  *) 


(* 


*) 
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(*  ^CHANGE  CONTROL:  *) 

(*  ORIGINATED:  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 
(*  END  %INCLUDE  NVLTAV  ************************************************) 
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(*  BEGIN  %INCLUDE  NVNEAV  **********************************************) 
<*  *) 
PROCEDURE  NVNEAV  (  CONST  SELECTEDJENTITY  :  ENTKEY ; 

CONST  ATTRIBUTE_DATA_BLOCK  :  ENTBLOCK; 

VAR  DATAREC  :  T_DATAREC ; 

VAR  NVI_RETURN_CODE  :  EXT_RET_CODE  ); 

SUBPROGRAM; 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

c* 

<* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

<* 


*) 

$ FUNCTION :  *) 

IF  ATTRIBUTE  VALUE  FOR  ENTITY  INSTANCE  OR  CONSTITUENT  *) 

IS  NOT  EQUAL  TO  SPECIFIED  VALUE  THEN  ADD  ENTITY  TO  LIST.  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

SELECTED  ENTITY  I  ENTITY  INSTANCE  KEY  *) 

*) 

ATTR I BUTE_DATA_BLO CK  I  SUPPLIED  BY  MAKXEQ  BUT  NOT  USED  *) 

*) 

DATAREC  I/O  A  RECORD  STRUCTURE  PASSED  THROUGH  *) 

MAEXEQ  WHICH  CONTAINS  THE  PARAMETERS  *) 
FROM  NVPQAV  :  NAME_ROOT  *) 

LIST_ROOT  *) 

ATTRIBUTE_VALUE  *) 

*) 

NVI_RETURN_CODE  0  EXTERNAL  RETURN  CODE  *) 

*) 

^COMMONS:  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

$ EXECUTION  PROCEDURE:  *) 

NAME/VALUE  INTERFACE  *) 

CALLED  VIA  MAEXEQ  FROM  NVPQAV  FOR  EACH  INSTANCE.  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

IF  ATTRIBUTE  VALUE  FOUND  THEN  *) 

IF  ATTRIBUTE  VALUE  NOT  EQUAL  SPECIFIED  VALUE  THEN  *) 

ADD  SELECTED  ENTITY  TO  LIST  *) 

END IF  *) 

ENDIF  *) 

*) 

^COMMENTS:  *) 

*) 
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(*  ^CHANGE  CONTROL:  *) 
(*  ORIGINATED:  15  JULY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  *) 
(*  END  X INCLUDE  NVNEAV  ************************************************) 
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(*  BEGIN  %INCLUDE 

(* 

FUNCTION  NVPQARLO 


NVPQARLO  ******** ************************************) 

*) 


( 


(* 

<* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 


CONST  ENTITY_INSTANCE 
CONST  INDEX 
CONST  SCHEMA 
CONST  DIMEN_VALUE 
CONST  NO_OF_DIMENSION 
VAR  ATTRIBUTE_SIZE 
VAR  ATTRIBUTE_VALUE 
VAR  ARRAY_TYPE 
VAR  DIMEN_COUNT 
VAR  NVI  RETURN  CODE 


T_INT_ITEM; 

INTEGER; 

T_SCHEMA_PO INTER; 
T_DIMEN_VALUE ; 
INTEGER; 

INTEGER; 

T_ATTRIBUTE_VALUE ; 
INTEGER; 

INTEGER; 
EXT_RET_CODE  ) 


:  T_VARIANT_POINTER; 
EXTERNAL; 


^FUNCTION: 

DETERMINE  THE 
OF  ARRAY  TYPE. 


LOCATION  OF  THE  REQUESTED  ENTITY  ATTRIBUTE 


^DESCRIPTION  OF  ARGUMENTS: 


NAME 

NVPQARLO 
ARRAY_S I ZE 
DIMEN_VALUE 
ENTITY_INSTANCE 
INDEX 

NO_OF_DIMENSION 

SCHEMA 


I/O  DESCRIPTION 


0 

0 

I 

I 

I 

I 

I 


POINTER  TO  ATTRIBUTE  VALUE 
SIZE  OF  THE  ATTRIBUTE  VALUE 
VALUE  OF  ARRAY  SUBSCRIPT 
POINTER  TO  ADB  OF  ENTITY  INSTANCE 
INDEX  OF  THE  CURRENT  SEGMENT 
NUMBER  OF  ARRAY  DIMENSIONS 
RUN-TIME  SUBSCHEMA  ENTITY 


$ COMMONS : 


^ENVIRONMENT : 

LANGUAGE:  IBM  PASCAL 
HARDWARE  SYSTEM:  IBM 


(SEGMENT  SUBPROGRAM) 
360/370/4341/4381 


^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 
CALLED  FROM  EITHER  PASCAL 


OR  FORTRAN  APPLICATION  PROGRAM 


^PROCESSING  DESCRIPTION: 

REQUEST  POINTER  TO  SELECTOR  IN  ADB  OF  ENTITY  INSTANCE 
POINT  TO  ARRAY  INDEX  TABLE  IN  RUN-TIME  SUBSCHEMA 
POINT  TO  ARRAY  LIST  TABLE  IN  RUN-TIME  SUBSCHEMA 
POINT  TO  ATTRIBUTE  LOCATION 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 
(*  ORIGINATED:  10  MARCH  1988,  M.  H.  CHOI,  DBMA  *) 
(*  *) 


(*  END  %INCLUDE  NVPQARLO  **********************************************) 
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(*  BEGIN  XINCLUDE  NVPQARPT  ********************************************) 


PROCEDURE  NVPQARPT  ( 

CONST 

ENTITY 

ENTKEY; 

VAR 

VALUE_INDEX 

INTEGER; 

VAR 

ARRAYJSIZE 

INTEGER; 

EXTERNAL ; 

VAR 

ATTR I BUTE_VALUE 

T_ATTR I BUTE_VALUE 

(* 

(*  $ FUNCTION: 

(*  DETERMINE  THE  LOCATION  OF  THE  ARRAY  OF  POINTER. 

(* 

(*  ^DESCRIPTION  OF 
(*  NAME 

<*  ==== 

(*  CNST_LIST 

(*  ENTITY 

(*  NO_OF_CL 

(* 

(* 

(*  $ COMMONS: 

(* 

(*  ^ENVIRONMENT : 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

<* 

(*  ^EXECUTION  PROCEDURE: 

(*  NAME/VALUE  INTERFACE 

(*  CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

(* 

(*  ^PROCESSING  DESCRIPTION: 

(*  LOOP  THROUGH  NUMBER  OF  INSTANCES  IN  THE  CONSTITUENT  LIST 

(*  WHILE  CONSTITUENT  KIND  <>  1100  THEN 

(*  POINT  TO  CONSTITUENT  KEY 

(*  END  LOOP 

(* 

(*  $ COMMENTS: 

(* 

(*  $ CHANGE  CONTROL: 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION) 

(*  ORIGINATED:  10  MARCH  1988,  M.  H.  CHOI,  DBMA 

(* 


RGUMENTS : 

I/O  DESCRIPTION 


0  ENTITIES  IN  THE  CONSTITUENT  LIST 
I  POINTER  TO  ADB  OF  ENTITY  INSTANCE 
0  NUMBER  OF  INSTANCES  IN  THE 
CONSTITUENT  LIST 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*> 

*) 


(*  END  XINCLUDE  NVPQARPT  **********************************************) 
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(* 

BEGIN  %INCLUDE  NVPQAV  **********************************************) 

(* 

*) 

PROCEDURE  NVPQAV  (  CONST  APPLICATION_LIST 

LISTKEY; 

CONST  NAME_STRING 

T_ATTRIBUTE_NAME ; 

CONST  ATTRIBUTE_VALUE 

T_ATTRI BUTE.VALUE ; 

CONST  DIMEN_VALUE 

T_DIMEN_VALUE ; 

CONST  SIGN 

INTEGER; 

VAR  ENTITY_LIST 

LISTKEY; 

VAR  NVI_RETURN_CODE 

EXT_RET_CODE  ); 

SUBPROGRAM; 

(* 

*) 

c* 

^FUNCTION: 

*) 

(* 

CREATE  LIST  OF  ENTITIES  WITH  THE  £ 

SPECIFIED  VALUE  FOR  THE 

*) 

(* 

SPECIFIED  ATTRIBUTE  FOR  THE  SPECIFIED  KIND  OF  ENTITY. 

*) 

(* 

*) 

c* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(  it 

NAME  I/O  DESCRIPTIOl 

I 

*) 

(* 

APPLICATION_LIST  I  LIST  CF  ENTITY  KEYS 

*) 

(* 

*) 

(* 

ATTRIBUTE_VALUE  I  VALUE  OF  THE  ATTRIBUTE 

*) 

(* 

*) 

(* 

NAME_STRING  I  SCHEMA  NAMI 

FOR  THE  ATTRIBUTE  WHICH 

*) 

a. 

(* 

IS  TERMINATED  BY  A  NULL  (HEX  ’00’) 

*) 

• 

(* 

*) 

(* 

ENTITY_KEY  0  ENTITY  INSTANCE 

*) 

(* 

*) 

(* 

NVI _RETURN_C ODE  0  EXTERNAL  RETURN  CODE 

*) 

(* 

*) 

(* 

^COMMONS : 

*) 

<* 

*) 

(* 

$ ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

*) 

<* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

<* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

NAME/VALUE  INTERFACE 

*) 

(* 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

*) 

<* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

CREATE  TRAVERSAL  MAP 

*) 

<* 

LOOP  THROUGH  ALL  ENTITY  INSTANCES 

IN  APPLICATION  LIST 

*) 

(* 

MAKE  A  LIST  OF  INSTANCES  WITH  £ 

SPECIFIED  ATTRIBUTE  VALUE 

*) 

(* 

ENDLOOP 

*) 

(* 

DELETE  TRAVERSAL  MAP 

*) 

(* 

RETURN  LIST  OF  INSTANCES  WITH  THE 

SPECIFIED  ATTRIBUTE  VALUE 

*) 
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(*  ^COMMENTS:  *) 
(*  *) 
(*  $ CHANGE  CONTROL:  *) 
(*  REVISED:  27  JULY  1987,  M.  H.  CHOI,  DBMA  *) 
(*  ADDED  A  SIGN  PARAMETER  TO  ALLOW  A  CHOICE  OF  THE  *) 
(*  RELATIONAL  OPERATOR.  *) 
(*  REVISED:  31  MARCH  1987,  M.  H.  CHOI,  DBMA  *) 
(*  ADDED  A  DIMENSION  VALUE  PARAMETER  TO  HANDLE  ARRAY  *) 
(*  OF  POINTERS.  *) 
(*  ORIGINATED:  05  MAY  1986,  M.  H.  CHOI,  FRMI  *) 
(*  *) 


(*  END  %INCLUDE  NVPQAV  ************************************************) 
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(* 

BEGIN  %INCLUDE  NVRTVRS  *********************************************) 

(* 

*) 

PROCEDURE  NVRTVRS  (  CONST  KIND  :  INTEGER; 

VAR  RUNTIME  :  T_RUN_TIME ; 

VAR  RUNTIME_SIZE  :  INTEGER; 

VAR  RETURN_CODE  :  INTEGER  ); 

SUBPROGRAM; 

(* 

*) 

(* 

^FUNCTION: 

*) 

(* 

RETRIEVE  ENTITY  DEFINITIONS  FROM  THE  FILE 

*) 

(* 

*) 

(* 

^DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

(  it 

NAME  I/O  DESCRIPTION 

*) 

(* 

KIND  I 

*) 

(* 

RUNTIME  0  RUN-TIME  SUBSCHEMA  WHICH  CONTAINS 

*) 

(* 

THE  ENTITY  DEFINITION,  ALONG  WITH 

*) 

(* 

ANY  ENUMERATION  VALUES  AND  ANY  ARRAY 

*) 

<* 

INFORMATIONS,  IN  A  COMPACTED  FORM. 

*) 

(* 

RUNTIME_SIZE  0  THE  NUMBER  OF  BYTES  ACTUALLY  REQUIRED 

*) 

(* 

FOR  THE  COMPACTED  RUN-TIME  SUBSCHEMA. 

*) 

(* 

*) 

(* 

(* 

$ COMMONS: 

*) 

*) 

• 

(* 

^ENVIRONMENT: 

*) 

(* 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

(* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

NAME/VALUE  INTERFACE 

*) 

(* 

CALLED  FROM  EITHER  PASCAL  OR  FORTRAN  APPLICATION  PROGRAM 

*) 

<* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

LOOP  THROUGH  INXFILE 

*) 

(* 

IF  KIND  FOUND  IN  INXFILE  THEN 

*> 

(* 

LOOP  THROUGH  DATAFILE 

*) 

<* 

IF  KIND  FOUND  IN  DATAFILE  THEN 

*) 

(* 

STORE  ENTITY  DEFINITION  IN  TEMPORARY  WORK  AREA 

*) 

(* 

END  IF 

*) 

(* 

END  IF 

*) 

(* 

END  LOOP 

*) 

(* 

STORE  ENTITY  DEFINITION  INTO  RUN-TIME  SUBSCHEMA 

*) 

(* 

STORE  SIZE  OF  ENTITY  DEFINITION  INTO  RUN-TIME  SUBSCHEMA 

*) 

(* 

*> 

(* 

^COMMENTS: 

*> 

(* 

*) 
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(*  $ CHANGE  CONTROL:  *) 

(*  ORIGINATED:  21  OCTOBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 
END  %INCLUDE  NVRTVRS  ***********************************************) 
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(*  BEGIN  %INCLUDE  RSCPAI  **********************************************) 
(*  *) 


PROCEDURE  RSCPAI  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE ; 

CONST  INPUT_VALUE  :  T_ARRAY_INDEX; 
CONST  S 1 2E_0 F_VALUE  :  INTEGER); 

EXTERNAL; 


(* 

*) 

(* 

$FUNCTION: 

*) 

(* 

COPY  THE  ARRAY  INDEX 

TABLE  INFORMATION  INTO  THE  RUN-TIME 

*) 

(* 

SUBSCHEMA. 

*) 

(* 

*) 

(* 

$DESCRIPTION  OF  ARGUMENTS: 

*) 

(* 

( * 

NAME 

I/O  DESCRIPTION 

*) 
ir  \ 

(* 

INPUT_VALUE 

I  INPUT  VALUE  OF  ARBITRARY  SIZE 

*  ) 
*) 

<* 

OUTPUT_VALUE 

0  OUTPUT  VALUE  OF  ARBITRARY  SIZE 

*) 

(* 

S I ZE_0 F_VALUE 

I  SIZE  OF  VALUE  TO  BE  COPIED 

*) 

(* 

*) 

<* 

^COMMONS : 

*) 

(* 

*) 

(* 

^ENVIRONMENT : 

*) 

(* 

LANGUAGE:  IBM  PASCAL 

(SEGMENT  SUBPROGRAM) 

*) 

(* 

HARDWARE  SYSTEM:  IBM 

360/370/4341/4381 

*) 

(* 

*) 

<* 

^EXECUTION  PROCEDURE: 

*) 

(* 

RUN-TIME  SUBSCHEMA 

*) 

(* 

*) 

(* 

^PROCESSING  DESCRIPTION: 

*) 

(* 

CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ARRAY  TABLE  INFO 

*) 

(* 

*) 

(* 

$ COMMENTS: 

*) 

(* 

*) 

(* 

$ CHANGE  CONTROL: 

*> 

<* 

ORIGINATED:  01  OCTOBER  1986,  M.  H.  CHOI,  DBMA 

*) 

<* 

*) 

(* 

END  %INCLUDE  RSCPAI  ************************************************) 

Cl  PS560240032U 
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(*  BEGIN  %INCLUDE  RSCPAT  **********************************************) 


(*  *) 

PROCEDURE  RSCPAT  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE ; 

CONST  INPUT.VALUE  :  T_ARRAY_LIST ; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL; 

(*  *) 

(*  $ FUNCTION:  *) 

(*  COPY  THE  SIZE  AND  THE  LOWER  BOUND  OF  THE  ARRAY  INTO  THE  *) 

(*  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INPUT.VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT.VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  S I ZE_0 F.VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  THE  SIZE  AND  THE  *) 

(*  LOWER  BOUND  OF  THE  ARRAY  *) 

(*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  ORIGINATED:  01  OCTOBER  1986,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  RSCPAT  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPCI  **********************************************) 


(*  *) 

PROCEDURE  RSCPCI  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE ; 

CONST  INPUTJVALUE  :  T_CL_INDEX; 

CONST  SIZE_OF_VALUE  :  INTEGER); 

EXTERNAL ; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  COPY  THE  POINTER  INDEX  TABLE  INFORMATION  INTO  THE  *) 

(*  RUN-TIME  SUBSCHEMA.  *) 

<*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

<*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

<*  S I ZE_0 F_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

(*  *) 

(*  $ COMMONS :  *) 

(*  *) 

(*  ^ENVIRONMENT:  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

(*  *) 

(*  ^EXECUTION  PROCEDURE:  *) 

(*  RUN-TIME  SUBSCHEMA  *) 

<*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  CL  INDEX  INFO  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $  CHANGE  CONTROL:  *) 

(*  ORIGINATED:  29  JANUARY  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  %INCLUDE  RSCPCI  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPCT 

(* 

PROCEDURE  RSCPCT  (  VAR 

CONST 

CONST 

EXTERNAL; 

<* 

(*  $ FUNCTION: 

(*  COPY  THE  KINDS 


**********************************************) 

*) 

OUTPUT_VALUE  :  T_DATA_VALUE ; 

INPUT_VALUE  :  T_CL_KINDS; 

SIZE_OF_VALUE  :  INTEGER); 

*) 

*) 

OF  POINTERS  INTO  THE  RUN-TIME  SUBSCHEMA.  *) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

<* 

(* 

(* 

(* 

c* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 


*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

S I ZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

*) 

^COMMONS:  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

^EXECUTION  PROCEDURE:  *) 

RUN-TIME  SUBSCHEMA  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  KINDS  OF  POINTER  *) 

*) 

$ COMMENTS:  *) 

*) 

$ CHANGE  CONTROL:  *) 

ORIGINATED:  29  JANUARY  1987,  M.  H.  CHOI,  DBMA  *) 

*) 


END  XINCLUDE  RSCPCT  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPEI  **********************************************) 
(*  *) 
PROCEDURE  RSCPEI  (  VAR  OUTPUTJ/ALUE  :  T_DATA_VALUE ; 

CONST  INPUT_VALUE  :  T_ENUM_INDEX ; 

CONST  S I ZE_OF_VALUE  :  INTEGER); 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

(* 

<* 


EXTERNAL; 

*) 

$ FUNCTION :  *) 

COPY  THE  ENUMERATION  INDEX  TABLE  INFORMATION  INTO  THE  *) 

RUN-TIME  SUBSCHEMA.  *) 

*) 

^DESCRIPTION  OF  ARGUMENTS:  *) 

NAME  I/O  DESCRIPTION  *) 

I NPUTVALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

S I ZE_OF_VALUE  I  SIZE  OF  VALUE  TO  BE  COPIED  *) 

*) 

^COMMONS:  *) 

*) 

^ENVIRONMENT:  *) 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

*) 

$ EXECUTION  PROCEDURE:  *) 

RUN-TIME  SUBSCHEMA  *) 

*) 

^PROCESSING  DESCRIPTION:  *) 

CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ENUMERATION  INFO  *) 

*) 

^COMMENTS:  *) 

*) 

$ CHANGE  CONTROL:  *) 

ORIGINATED:  01  OCTOBER  1986,  M.  H.  CHOI,  DBMA  *) 

*) 


END  ^INCLUDE  RSCPEI  ************************************************) 
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(*  BEGIN  %INCLUDE  RSCPET  **********************************************) 


(*  *) 

PROCEDURE  RSCPET  (  VAR  OUTPUT_VALUE  :  T_DATA_VALUE ; 

CONST  INPUT_VALUE  :  T_ENUMERATION ; 

CONST  S I ZE_OF_VALUE  :  INTEGER); 

EXTERNAL; 

(*  *) 

(*  $ FUNCTION :  *) 

(*  COPY  THE  ENUMERATION  VALUES  INTO  THE  RUN-TIME  SUBSCHEMA.  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 

(*  INPUT_VALUE  I  INPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  OUTPUT_VALUE  0  OUTPUT  VALUE  OF  ARBITRARY  SIZE  *) 

(*  SIZE_OF_VALUE  I  SIZE  OF  VALUE  TO  _E  COPIED  *) 

(*  *) 

(*  ^COMMONS:  *) 

(*  *) 

(*  ^ENVIRONMENT :  *) 

(*  LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM)  *) 

(*  HARDWARE  SYSTEM:  IBM  360/370/4341/4381  *) 

<*  *) 

(*  $ EXECUTION  PROCEDURE:  *) 

<*  RUN-TIME  SUBSCHEMA  *) 

(*  *) 

(*  ^PROCESSING  DESCRIPTION:  *) 

(*  CALL  MACHINE  DEPENDENT  ROUTINE  TO  COPY  ENUMERATION  TABLE  *) 

(*  *) 

(*  ^COMMENTS:  *) 

(*  *) 

(*  $ CHANGE  CONTROL:  *) 

(*  REVISED:  16  MAY  1986,  GEORGE  A.  WHITE,  FRMI ,  REORGANIZED  *) 

(*  GLOBAL  DECLARATIONS  INTO  ’NVITYP’.  *) 

(*  ORIGINATED:  15  OCTOBER  1985,  G.  A.  WHITE,  FRMI  *) 

(*  *) 


(*  END  XINCLUDE  RSCPET  ************************************************) 
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(*  BEGIN  %INCLUDE  RSGTDD  **********************************************) 


(*  *) 

PROCEDURE  RSGTDD  (  CONST  KIND_OF_ENTITY  :  INTEGER; 

VAR  RUN_TIME  :  T_RUN_TIME ; 

VAR  RUN_TIME_SIZE  :  INTEGER; 

VAR  RTS_RETURN_CODE  :  INTEGER  ); 

SUBPROGRAM; 

<*  *) 

(*  $ FUNCTION:  *) 

(*  BUILD  RUN-TIME  SUBSCHEMA  FROM  DATA  DICTIONARY  ENTRY  *) 

(*  *) 

(*  ^DESCRIPTION  OF  ARGUMENTS:  *) 

(*  NAME  I/O  DESCRIPTION  *) 


(* 


*) 


(*  KIND_OF_ENTITY  I  KIND  VALUE  OF  THE  ENTITY  FOR  WHICH  THE  *) 


(* 

RUN-TIME  SUBSCHEMA  WILL  BE  BUILT. 

*) 

(* 

RTS_RETURN_CODE  0 

RETURN  CODE 

*) 

(* 

=  0  SUCCESS 

*) 

(* 

>  0  CRITICAL  ERROR: 

*) 

(* 

1  KIND  NOT  IN  RUN-TIME  SUBSCHEMA 

*) 

(* 

RUN_TIME  0 

RUN-TIME  SUBSCHEMA  WHICH  CONTAINS  THE 

*) 

(* 

ENTITY  DEFINITION,  ALONG  WITH  ANY 

*) 

(* 

ENUMERATION  VALUES,  CONSTITUENT  LIST 

*) 

(* 

KINDS,  AND  ARRAY  INFORMATION,  IN  A 

*) 

(* 

COMPACTED  FORM. 

*) 

<* 

RUN_TIME_SIZE  0 

THE  NUMBER  OF  BYTES  ACTUALLY  REQUIRED 

*) 

(* 

FOR  THE  COMPACTED  RUN-TIME  SUBSCHEMA. 

*) 

<* 

*) 

(* 

^COMMONS : 

*) 

(* 

*) 

(* 

^ENVIRONMENT: 

*) 

<* 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

*) 

(* 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

*) 

<* 

*) 

(* 

^EXECUTION  PROCEDURE: 

*) 

(* 

RUN-TIME  SUBSCHEMA 

(TEMPORARY  ROUTINE) 

*) 

<* 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 

*) 

<*  *) 

(*  $PROCESSING  DESCRIPTION:  *) 
(*  IF  KIND  NUMBER  EXIST  IN  DATA  DICTIONARY  THEN  *) 
(*  TRANSLATE  DATA  DICTIONARY  ENTRY  INTO  ENTITY  ATTRIBUTES,  *) 
(*  ENUMERATION  VALUES,  CONSTITUENT  LIST  KINDS  AND  ARRAY  *) 
(*  INFORMATIONS  (LOWER  BOUND  AND  SIZE  OF  EACH  DIMENSIONS)*) 
(*  IF  THERE  WERE  ANY  ENUMERATION  ATTRIBUTES  THEN  *) 
(*  CALCULATE  THE  STARTING  POSITION  OF  THE  ENUMERATION  *) 
(*  INDEX  TABLE  AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 
(*  DETERMINE  THE  ACTUAL  SIZE  OF  THE  ENUMERATION  INDEX  *) 
(*  TABLE  *) 
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(* 

(* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


COPY  ENUMERATION  INDEX  TABLE  INFORMATION  INTO  *) 

RUN-TIME  SUBSCHEMA  *) 

CALCULATE  THE  STARTING  POSITION  OF  THE  ENUMERATION  *) 
VALUE  TABLE  AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

DETERMINE  THE  ACTUAL  SIZE  OF  THE  ENUMERATION  VALUE  *) 
TABLE  *) 

COPY  THE  ENUMERATION  VALUES  INTO  THE  RUN-TIME  *) 

SUBSCHEMA  *) 

ENDIF  *) 

IF  THERE  WERE  ANY  ARRAY  ATTRIBUTES  THEN  *) 

CALCULATE  THE  STARTING  POSITION  OF  THE  ARRAY  INDEX  *) 
TABLE  AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

DETERMINE  THE  ACTUAL  SIZE  OF  THE  ARRAY  INDEX  TABLE  *) 
COPY  ARRAY  TABLE  INDEX  INFORMATION  INTO  RUN-TIME  *) 

SUBSCHEMA  *) 

CALCULATE  THE  STARTING  POSITION  OF  THE  ARRAY  LIST  *) 

TABLE  AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

DETERMINE  THE  ACTUAL  SIZE  OF  THE  ARRAY  LIST  TABLE  *) 

COPY  ARRAY  LIST  INFORMATION  INTO  RUN-TIME  SUBSCHEMA  *) 
ENDIF  *) 

IF  THERE  WERE  ANY  POINTER  ATTRIBUTES  THEN  *) 

CALCULATE  THE  STARTING  POSITION  OF  THE  CL  INDEX  TABLE  *) 
AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

DETERMINE  THE  ACTUAL  SIZE  OF  THE  CL  INDEX  TABLE  *) 

COPY  CL  TABLE  INDEX  INFORMATION  INTO  RUN-TIME  *) 

SUBSCHEMA  *) 

CALCULATE  THE  STARTING  POSITION  OF  THE  CL  LIST  TABLE  *) 
AND  STORE  INTO  RUN-TIME  SUBSCHEMA  *) 

DETERMINE  THE  ACTUAL  SIZE  OF  THE  CL  LIST  TABLE  *) 

COPY  ELIG.  KINDS  INFORMATION  INTO  RUN-TIME  SUBSCHEMA  *) 
ENDIF  *) 

CALCULATE  THE  SIZE  OF  THE  RUN-TIME  SUBSCHEMA  *) 

ELSE  *) 

RETURN  FAILURE  *) 

ENDIF  *) 

*) 

^COMMENTS:  *) 

*) 

$ CHANGE  CONTROL:  *) 

ORIGINATED:  29  APRIL  1987,  M.  H.  CHOI,  DBMA  *) 

*) 


(*  END  XINCLUDE  RSGTDD  ************************************************) 
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(*  BEGIN  %INCT.UDE  RSTRDD  A********************************************* ) 


(’ 


*) 


(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 

<* 

(* 

c* 

<* 

(* 

(* 

<* 

(* 

(* 

(* 

(* 

(* 

(* 

(* 


CONST 

K I ND_0 F_E NT I T Y 

INTEGER; 

VAR 

ENTITY 

T_SCHEMA; 

VAR 

ENUM 

T_ENUM_COMPACTOR ; 

VAR 

ENUM_INDEX 

T_ENUM_INX_COMPACTOR ; 

VAR 

ARRAY_LIST 

T_ARRAY_LIST_COMPACTOR 

VAR 

ARRAY_INDEX 

T_ARRAY_INX_COMPACTOR ; 

VAR 

CL_INDEX 

T_CL_INX_COMPACTOR; 

VAR 

CL_LIST 

T_CL_KINDS_COMPACTOR; 

VAR 

RTS_RETURN_CODE 

INTEGER  ); 

SUBPROGRAM; 

^FUNCTION: 


^DESCRIPTION  OF  ARGUMENTS: 


*) 
*) 

TRANSLATE  A  DATA  DICTIONARY  ENTRY  INTO  A  RUN-TIME  SUBSCHEMA  *) 
ENTITY,  ENUMERATION  TABLE,  ARRAY  INFO  TABLE,  AND  CL  TABLE.  *) 

*) 
*) 
*) 
*) 
*) 
*) 
*) 
*) 


NAME 

ARRAY_INDEX 

ARRAY_LIST 

ENUM 

ENUM_INDEX 

ENTITY 

KIND_OF_ENTITY 
RTS  RETURN  CODE 


I/O  DESCRIPTION 

0  RUN-TIME  SUBSCHEMA  ARRAY  TABLE  INDEX 
INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ARRAY  TABLE 
AND  COMPACTION  INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ENUMERATION  TABLE  *) 
AND  COMPACTION  INFORMATION. 

0  RUN-TIME  SUBSCHEMA  ENUMERATION  TABLE 
INDEX  INFORMATION. 

RUN-TIME  SUBSCHEMA  ENTITY  DEFINITION.*) 
KIND  VALUE  OF  THE  ENTITY  FOR  WHICH 
THE  TRANSLATION  WILL  BE  PERFORMED. 
RETURN  CODE 


0 

I 


=  0  SUCCESS 
>  0  CRITICAL  ERROR: 


$ COMMONS : 


^ENVIRONMENT: 

LANGUAGE:  IBM  PASCAL  (SEGMENT  SUBPROGRAM) 

HARDWARE  SYSTEM:  IBM  360/370/4341/4381 

^EXECUTION  PROCEDURE: 

NAME/VALUE  INTERFACE 

CALLED  FROM  THE  NAME/VALUE  INTERFACE 

^PROCESSING  DESCRIPTION: 

OBTAIN  ENTITY  NAME  AND  KIND  FROM  DATA  DICTIONARY 
STORE  ENTITY  NAME  AND  KIND  INTO  RUN-TIME  SUBSCHEMA 


*) 

*) 

*) 


*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 

*) 
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(*  LOOP  THROUGH  DATA  DICTIONARY  ENTRIES  *) 

(*  OBTAIN  ATTRIBUTE  ENTRY  FROM  DATA  DICTIONARY  *) 

(*  CASE  DATA  TYPE  OF  *) 

(*  INTEGER,  REAL,  STRING,  LOGICAL  *) 

(*  :  APPLICATION_DATA_BLOCK_ATTRIBUTE,  PROCEDURE  (1)  *) 

(*  POINTER  :  CONSTITUENT_LIST_ATTRIBUTE ,  PROCEDURE  (2)  *) 

(*  ENUMERATION:  ENUMERATION_ATTRIBUTE ,  PROCEDURE  (3)  *) 

(*  ENDCASE  *) 

(*  ENDLOOP  *) 

%PAGE 

(*  PROCEDURE  (1)  :  APPLICATION_DATA_BL.OCK_ATTRIBUTE  *) 

(*  STORE  ATTRIBUTE  DEFINITION  FOR  TYPE  IN  DATA  DICTIONARY  ENTRY*) 

(*  *) 

(*  PROCEDURE  (2)  :  CONSTITUENT_LIST_ATTRIBUTE  *) 

(*  OBTAIN  CONSTITUENT  LIST  POSITION  FROM  SCHEMA  MODEL  *) 

(*  STORE  ATTRIBUTE  DEFINITION  FOR  TYPE  IN  SCHEMA  MODEL  ENTRY  *) 

(*  *) 

(*  PROCEDURE  (3)  :  ENUMERATION_ATTRIBUTE  *) 

(*  STORE  ATTRIBUTE  DEFINITION  FOR  ENUMERATION  TYPE  *) 

(*  OBTAIN  NUMBER  OF  ENUMERATION  VALUES  FROM  SCHEMA  MODEL  *) 

(*  STORE  NUMBER  OF  ENUMERATION  VALUE  IN  ENUMERATION  INDEX  TABLE*) 

(*  STORE  ENUMERATION  VALUE  TABLE  INDEX  POSITION  IN  ENUMERATION  *) 

(*  INDEX  TABLE  *) 

(*  LOOP  THROUGH  ENUMERATION  VALUES  *) 

(*  OBTAIN  ENUMERATION  VALUE  FROM  SCHEMA  MODEL  *) 

(*  STORE  ENUMERATION  VALUE  IN  ENUMERATION  VALUE  TABLE  *) 

(*  END  LOOP  *) 

(*  *) 

(*  PROCEDURE  (4)  :  ARRAY_ATTRIBUTE  *) 

(*  DETERMINE  THE  NUMBER  OF  ARRAY  DIMENSIONS  *) 

(*  STORE  ARRAY  INFORMATION  INTO  RUN-TIME  SUBSCHEMA  *) 

(*  STORE  TABLE  INDEX  POSITION  FOR  ARRAY  LIST  TABLE  AND  THE  *) 

(*  NUMBER  OF  DIMENSIONS  INTO  ARRAY  INDEX  TABLE  *) 

(*  CALCULATE  TOTAL  SIZE  OF  THE  ARRAY  AND  STORE  INTO  ARRAY  *) 

(*  INDEX  TABLE  *) 

(*  FOR  THE  NUMBER  OF  ARRAY  DIMENSIONS  *) 

(*  CALCULATE  THE  SIZE  OF  EACH  ARRAY  *) 

(*  STORE  SIZE  AND  LOW-BOUND  INTO  ARRAY  LIST  TABLE  *) 

(*  END  LOOP  *) 

<*  *) 

(*  ^COMMENTS:  *) 

<*  *) 

(*  it  CHANGE  CONTROL:  *) 

(*  REVISED:  (DATE,  NAME,  GROUP,  REASON/DESCRIPTION)  *) 

(*  ORIGINATED:  29  APRIL  1987,  M.  H.  CHOI,  DBMA  *) 

(*  *) 


(*  END  XINCLUDE  RSTRDD  ************************************************) 
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